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Dieses Peeker-Heft bringt eine geballte 
Phalanx nützlicher und extrem schneller 
Programme. 

Unter dem Rubrum „RAM-Disk“ beginnen 
wir mit einer Serie von RAM-Disk-Drivern 
und sonstigen Utilities zu RAM-Karten un- 
terschiedlicher Produzenten (Apple-LC, 
Apple-64K-Erweiterung, IBS-RAM-Karten, 
Balfer-Interface, Titan-Karten u. a.). An ei- 
ner kleinen „Poor Man’s RAM-Disk” wird 
zunächst das Prinzip eines RAM-Disk-Dri- 
vers erläutert und dann anhand der großen 
IBS-RAM-Karten technisch vertieft. 
QUICKCOPY ist ein ProDOS-Kopierpro- 
gramm, das für Laufwerke mit 35-80 Spu- 
ren ausgelegi ist und eine normale 35- 
Spur-Diskette in nur 33 Sekunden dupli- 
ziert. Daneben wird ein nicht ganz so 
schnelles PRODOS.COPYA gelistet, das 
wie das alte DOS.COPYA ohne 64K-Karte 


' auskommt. 


Wenn Sie bislang Probleme mit der Ap- 
plesoft-Stringverwaltung unter DOS 3.3 
hatten, so können Sie jetzt aufatmen. Eine 
„blitzartige" Garbage-Collection-Routine, 
die teilweise auf dem ProDOS-FRE-Befehl 
basiert, ist sage und schreibe bis zu 2000 
mal schneller als die alte Interpreter-Routi- 
ne. Da sich diese neue Routine mit einem 
in die Language Card gelegten DOS 3.3 
verträgt, Kann in den unteren 48K ein riesi- 
ger Stringpool verwaltet werden, was unter 
ProDOS leider nicht mehr möglich ist. 
Schließlich bringen wir neben einer Reihe 
weiterer Utilities in unserem Sonderteil ein 
sehr umfangreiches MBASIC-Programm 
für die Lohn- und Einkommensteuererklä- 
rung 1984. 


Leser, die nur selten oder gar nicht pro- 
grammieren, werden sicherlich einige der 
im „Peeker“ enthaltenen professionellen 
Programme nur mit Mühe verstehen Kön- 
nen. Deshalb gibt es die „Peeker“-Sam- 
meldiskette, die alle abgedruckten Pro- 
gramme in sofort einsatzfähiger Form ent- 
halten. Viele unserer Utilities sind auf dem 
Softwaremarkt sonst nur für teures Geld 
zu haben. Beispielsweise ist gerade in den 
USA ein ProDOS-Kopierprogramm für 
$ 30 (rund DM 100,-) erschienen, das ge- 
nauso schnell wie unser QUICKCOPY ist. 
Füreinen RAM-Disk-Driver würde man ei- 
nen ähnlichen Betrag zahlen müssen, und 
für ein Einkommen- und Lohnsteuerpro- 
gramm müßte man noch erheblich tiefer in 
die Tasche greifen. Bei uns bekommen 
Sie das alles zusammen für eine nominale 
Gebühr von nur DM 20,- pro Diskette im 
Fortsetzungsbezug. 

Noch ein Hinweis in eigener Sache: Das 
Peeker-Poster wird erst am 25. 1. 85 ver- 
schickt, weil in die Tabellen noch neuere 
Erkenntnisse zu ProDOS sowie zum 
65002 eingearbeitet werden mußten. 
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Die Language Card (LC) des Apple Il ist 
ursprünglich als Sprachkarte für Inte- 
ger-Basic, Pascal usw. gedacht wor- 
den, doch kann sie auch generell als 
Datenspeicher sowie speziell als RAM- 
Disk (Pseudo-Disk, Disk-Emulator) ein- 
gesetzt werden. Nachstehend wird ein 
mit allen 48K-DOS-Versionen (DOS 3.3, 








Diversi-DOS, David-DOS usw.) verträg- 
licher und damit sehr flexibler Driver 
vorgestellt, der mit einer Datenübertra- 
gungsrate von über 50K/s aufwarten 
kann. Unsere Serie über RAM-Disk-Dri- 
ver beginnt mit diesem LC-Driver, weil 
sich hier die Prinzipien einer RAM-Disk 
besonders einfach erläutern lassen. 


RAM-Disk-Driver für die Language Card 


1. Allgemeines zur RWTS 


DOS 3.3 läßt sich in 3 Bereiche gliedern: 


1. Der Command-Interpreter (,„Befehls- 
deuter“) analysiert die eingegebenen Be- 
fehle wie LOAD PROGRAMM usw. 

2. Der File-Manager (,„Dateiverwalter“) 
überwacht das Laden/Speichern von Da- 
teien. 

3. Der Disk-Driver („Diskettentreiber“) 
oder die RWTS (= Read Write Track Sec- 
tor) führt das physische Laden/Speichern 
auf Spur-Sektor-Ebene durch. 

Der Command-Interpreter gibt die Befehle 
an den File-Manager weiter, der seiner- 
seits die benötigten Sektoren über den 
Disk-Driver abruft. Der normale Disk-Dri- 
ver für physische Laufwerke beginnt, 





wenn DOS 3.3 in den unteren 43K liegt, 
stets bei der Speicherstelle $BDO0. Vor 
dem Sprung zum Disk-Driver bzw. zur 
RWTS sind bereits vom File-Manager die 
gewünschten Parameter in dem sog. IOB 
(= Input-Output-Block) ab Speicherstelle 
$B7E8 gesetzt worden, die dann von der 
RWTS übernommen werden. Ein Maschi- 
nenprogramm kann anstelle des normalen 
IOB ab $B7E8 seinen eigenen IOB, der 
irgendwo im Speicher liegen kann, benut- 
zen und im übrigen den File-Manager 
ganz umgehen, doch muß man dann vor 
dem Sprung zur RWTS (= JSR $BDOO 
oder besser JSR $03D9 = RWTS-Vekto- 
radresse) das Y-Register mit dem Low 
Byte und das A-Register mit dem High 
Byte der Adresse des eigenen IOB laden. 


Die Besonderheit dieses LC-Drivers 
gegenüber ähnlichen LC-Drivern, die 
bereits in „Nibble“ und anderen Zeit- 
schriften publiziert worden sind, liegt 
darin, daß unser Driver selbst in der LC 
residiert, womit keine Kompatibilitäts- 
probleme mit unterschiedlichen DOS- 
Varianten auftreten können. 


Poor Man’s RAM-Disk ....... 


Der IOB umfaßt folgende Parameter: 


Input-Output-Block 
(ab $0300 mit Beispielwerten) 


0 $0300: 
1 $0301: 
1 $0302: 
0 $0303: 
1 $0304: 
1 $0305: 
0 $0306: 
0 $0307: 
1 $0308: 
1 $0309: 


01 Konstante 

30 Jetzt-Slot 3 (3 & 16) 

01 Jetzt-Drive 1 

FE Jetzt-Volume-Nummer 254 
11 Spur 17 

00 Sektor OÖ 

1:2E2DET (6503151) 

OS EI BET 

00 LL Puffer ($1000) 

10 HH Puffer 


0 $030A: 00 entfällt 
0 $030B: 00 entfällt 
1 $030C: 01 Read-Befehl (02 = Write) 





0 $030D: 00 Fehler-Code (danach) 

0 $030E: 00 Vorher-Volume-Nummer 
0 $030F: 60 Vorher-Slot 6 

0 $0310: 02 Vorher-Drive 2 

0 $0311: 00 DCT-Konstante 

0 $0312: 01 DCT-Konstante 

0 $0313: EF DCT-Konstante 

0 $0314: D8 DCT-Konstante 


Aufruf der RWTS 


$0315: A000  LDY 4$00 

(Low $0300) 
$0317: A9 03 LDA #$03 

(High $0300) 
$0319: 20 D903 JSR $03D9 

(RWTS-Vektor) 
$031C: 60 RTS 


Das obige RWTS-Beispiel würde — nach 
CALL -151 mit 315G gestartet — den Sek- 
tor O von Spur 17 von der LC-RAM-Disk 
im imaginären Slot 3 in den Puffer $1000- 
$10FF einlesen. DCT steht übrigens für 
Device Characteristics Table und umfaßt 4 
Konstanten für den Laufwerk-Controller, 
die allerdings bei einem RAM-Disk-Driver 
nicht benötigt werden. Als Jetzt-Parameter 
gelten die IOB-Slot-Drive-Volume-Werte 
vor dem RWTS-Aufruf. Nach der Rückkehr 
von der RWTS werden die Jetzt-Parame- 
ter zu Vorher-Parametern. (Um den Ver- 
such der normalen RWTS, den nicht-vor- 
handenen Motor der RAM-Disk abzustel- 
len, zu unterbinden, aktualisiert unser LC- 
RAM-Disk-Driver nicht die Vorher-Para- 
meter.) 

Vor den einzelnen Bytes des lOB steht 
entweder eine O oder eine 1. Falls man wie 
hier mit einem externen lIOB die RAM-Disk 
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per RWTS direkt anspricht, so brauchen 
vor dem Aufruf der RWTS theoretisch nur 
die mit 1 markierten Speicherstellen initia- 
lisiert werden, da die mit O0 markierten 
Speicherstellen bei der RAM-RWTS im 
Gegensatz zur normalen RWTS keine Rol- 
le spielen. Aus Gründen der Mehrfachnut- 
zung eines einzigen IOB innerhalb eines 
Assemblerprogramms empfiehlt es sich 
jedoch, den IOB vollständig anzulegen. 


Eine RAM-Disk unterscheidet sich von der 
normalen Diskette lediglich dadurch, daß 
die Daten auf der RAM-Karte anstatt auf 
dem magnetischen Datenträger gespei- 
chert werden. Dies hat den Nachteil, daß 
mit dem Ausschalten des Apple der RAM- 
Disk-Inhalt verlorengeht, der somit vor Be- 
endigung der Arbeit stets auf einer physi- 
schen Diskette gesichert werden muß. 
Der Vorteil der RAM-Disk liegt in dem 
ungleich schnelleren Zugriff, weil im Ge- 
gensatz zum Diskettenlaufwerk keine phy- 
sischen Teile bewegt werden (Einschalten 
des Laufwerkmotors, Rotieren der Disket- 
te, Positionieren des Lesekopfs usw.). 


Der normale Disk-Driver übernimmt u.a. 
die Spur- und Sektornummer sowie die 
Pufiferadresse (= Pufferanfang) aus dem 
IOB. Wenn ein Lesebefehl vorliegt (01 = 
Read), so wird der 256 Bytes umfassende 
Sektor von der physischen Diskette in den 
256 Bytes umfassenden Puffer eingele- 
sen. Wenn umgekehrt ein Schreibbefehl 
vorliegt (02 = Write), so wird der Pufferin- 
halt auf den entsprechenden Disketten- 
sektor geschrieben. De facto ist eine Nib- 


ble-Kodierung zwischengeschaltet, doch 
können wir dies hier ignorieren. 

Ein RAM-Disk-Driver verfährt analog zum 
normalen Disk-Driver. Beim Lesebefehl 
wird der Pufferinhalt in einen bestimmten 
Bereich der RAM-Karte eingelesen. Um- 
gekehrt wird beim Schreibbefehl ein be- 
stimmter Bereich der RAM-Karte in den 
Puffer geschrieben. Lesen und Schreiben 
sind hier Move- oder Speicherverschiebe- 
befehle. 

Ein RAM-Disk-Driver besteht grundsätz- 
lich aus 2 Teilprogrammen: einem Modul, 
das die RAM-Disk „initialisiert“, sowie ei- 
nem Modul, das den eigentlichen Driver 
installiert. Beide Module können wie bei 
unserer RAMDISKLC-Utility zu einem 
Gesamtprogramm vereint werden. 


2. RAM-Disk-Organisation 


Der für die RAM-Disk zur Verfügung ste- 
hende Speicherbereich - in unserem Fall 
die LC — kann völlig beliebig in „Spuren“ 
und „Sektoren“ (256-Byte-Bereiche) ein- 
geteilt werden. Aus Diagramm 1 ersehen 
wir, daß z.B. der Bereich $DO00-$DFFF 
der LC-Bank 2 der Spur 19 mit den Sekto- 
ren 0-15 entspricht. Sektor O von Spur 19 
nimmt den Teilbereich $D000-$DOFF ein, 
Sektor 1 den Teilbereich $D100-$DiFF 
usw. Bei einer normalen Diskette gibt es 
35 Spuren. Die Spuren 0-2 enthalten das 
DOS, die Spur 17 umfaßt den Catalog, und 
die restlichen Spuren ab Spur 18 aufwärts 
sowie ab Spur 16 abwärts enthalten die 
eigentlichen Dateien. Da auf einer RAM- 
Disk normalerweise nicht 35 Spuren un- 





tergebracht werden können und im übri- 
gen auch von einer RAM-Disk nicht ge- 
bootet werden kann, muß das sog. VTOC 
(= Volume Table of Contents), das sich 
immer auf Sektor O von Spur 17 befindet, 
so modifiziert bzw. „gekürzt“ werden, daß 
das RAM-Disk-VTOC die tatsächlich ver- 
fügbaren Spuren und Sektoren widerspie- 
gelt. 


Im RAMDISKLC-Listing ist das VTOC in 
den Programmzeilen 191-310 bzw. (vor 
der Verschiebung in die LC) im Speicher 
$6200-$62FF enthalten. Die Speicherstel- 
le $6200 entspricht damit dem 0. Byte und 
die Speicherstelle $62FF dem 255. Bytes 
des VTOC-Sektors. Die wichtigsten relati- 
ven Bytes $00-$FF des VTOC - weitere 
Details entnehme man dem Listing — wol- 
len wir nunmehr kurz besprechen. 


$01: Spur-Nr. des 1. Dateinamensektors 
(17) 

$02: Sektor-Nr. des 1. Dateinamensektors 
(15) 

503: 3 (= Version DOS 3.3) 

$06: Volume-Nr. (254) 

$27: maximale Anzahl der Spur-Sektor- 
Paare innerhalb einer Spur-Sektor- 
Liste (122) 

$30: zuletzt benutzte Spur 

$31: Richtung: 1 für ab Spur 18 aufwäris, 
255 für ab Spur 16 abwärts 

$34: Anzahl der Spuren pro Diskette (35) 

$35: Anzahl der Sektoren pro Spur (16) 

$36: Anzahl der Bytes pro Sektor (in Low- 
High: $0100 = 256) 


Die eben genannten Bytes von $00-$37 
machen den „Kopf“ des VTOC aus. Ab 
Byte $38 folgen je 4 Bytes für je 1 Spur 
(beginnend mit Spur 0) als Spurenbele- 
gung-Bitmap. Von den je 4 Bytes werden 
nur jeweils die ersten 2 Bytes zur Ver- 
schlüsselung der belegten bzw. freien 
Sektoren einer Spur benutzt. Beispiel: 


FEDCBA9876543210 Bit-Nrn. 
ko ael0eBlszenst 


Nehmen wir an, für die Spur 18 seien die 4 
Bytes $FF $FC $00 $00 eingetragen. Wir 
ignorieren die letzten beiden Bytes und 
erstellen ein Bitmuster der ersten beiden 
Bytes. Das 0. Bit ($0) steht für Sektor O 
und und das 15. Bit ($F) für Sektor 15. 
Wenn ein Bit den Wert 1 hat, dann ist der 
entsprechende Sektor frei, und wenn es 
den Wert O hat, belegt. Das obige Bitmu- 
ster für Spur 18 besagt also, daß die Sek- 
toren O und 1 bereits belegt sind, während 
die restlichen Sektoren noch zur freien 
Verfügung stehen. 


j0 


Diagramm 1: Speicherverteilung bei RAMDISKLC, „Slot 3” 


(@D Hinsprung zum RAM-Disk-Driver 
(@) Rücksprung, falls Slot <> 3 


'$D100 


@) Rücksprung, falls Slot = 


$FFFF 
&FFOO 






Spur 21, Sektor 0-14 


$FO00 


Spur 20, Sektor 0-15 


$E000 


Spur 19, Sektor Ö-15 


$DO00 
$DFFF 


Spur 18, Sektor 2-15 


$5D200 


Spur 17, Sektor 15 Catalog 
Spur 17, Sektor 0 VTOC 
$&D000 - = 


$BFFF 


Normale DOS-RWTS 
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Die Initialisierung der RAM-Disk muß ins- 
besondere für ein dem RAM-Speicher 
entsprechendes VTOC sorgen. Ferner 
müssen auch die Dateinamensektoren auf 
Spur 17 angelegt werden. Bei einer nor- 
malen Diskette ist Sektor 15 in Spur 17 der 
erste und Sektor 1 in Spur 17 der letzte 
Dateinamensektor, wobei jeder dieser 
Sektoren 7 Dateleinträge aufnehmen 
kann. Die Beschreibung der Struktur eines 
Dateinamensektors würde den Rahmen 
dieses Aufsatzes sprengen, doch sel dar- 
auf hingewiesen, daß die Dateinamensek- 
toren untereinander verkettet sind, d.h. 
Sektor 15 als 1. Datennamensektor enthält 
einen Zeiger auf Sektor 14 als 2. Dateina- 
mensektor usw. Der letzte Dateinamen- 
sektor (Sektor 1) enthält einen „Null"-Zei- 
ger, womit das Ende der Dateleintragsliste 
erreicht wird. Die Zeiger in der Form 
Spur-Nr.- Sektor-Nr., z.B. 

$11-$0E, d.h. 17-14 

befinden sich stets in den relativen Bytes 
$01-$02 eines jeden Dateinamensektors. 
Im übrigen enthält eine frisch initialisierte 
Diskette in den Dateinamensektoren zu- 
nächst nur „Nullen“ ($00). Aus Platzgrün- 
den legen wir für unsere Mini-LC-RAM- 
Disk nur einen einzigen Dateinamensektor 
(Spur 17, Sektor 15) an. Zu diesem Zweck 
brauchen wir lediglich den entsprechen- 
den Speicherbereich auf Null zu setzen, 
womit auch der Zeiger zum theoretisch 
nächsten Dateinamensektor zum „Null”- 
Zeiger wird. 


Fassen wir zusammen: Zur „Initialisie- 
rung“ einer RAM-Disk muß der korrekte 
VTOC-Sektor sowie mindestens 1 Datei- 
namensektor angelegt werden. Die ei- 
gentlichen Datensektoren selbst müssen 
nicht initialisiert, d.h. auf Null gesetzt wer- 
den, obgleich unsere RAMDISKLC-Utility 
dies zusätzlich tut, damit man beim Experi- 
mentieren mit der RAM-Disk sieht, welche 
Sektoren tatsächlich bereits benutzt 
wurden. 


3. RAM-Disk-Driver 


Die Logik eines RAM-Disk-Drivers funk- 
tioniert prinzipiell in der Art der aus Dia- 
gramm 1 ersichtlichen eingekreisten Zif- 
fern: 


1. Am Anfang des normalen Disk-Drivers 
(= $BD00) wird ein Sprung zum RAM- 
Disk-Driver vorgeschaltet, der sich seiner- 
seits irgendwo im Speicher befinden kann. 
Unser Driver befindet sich selbst in der 
LC, womit erstens kein Speicherraum In 
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den unteren 43K verlorengeht und zwei- 
tens keine Konflikte mit gepatchtem DOS 
3.3 auftreten. Wir benötigen bei der Spei- 
cherstelle $BDOO nur 2 Assemblerbe- 
fehle: 

$BD00: BIT $C080 

$BD03: JMP $FFOO 

$BD086: Fortsetzung der RWTS 

BIT $C080 macht die Bank 2 der LC lese- 
fähig und JMP $FFOO bewirkt den Sprung 
zum bei $FF00 beginnenden RAM-Disk- 
Driver. 

Wenn nunmehr die RWTS vom eigenen 
Assemblerprogramm oder vom File-Mana- 
ger aufgerufen wird, so erfolgt zunächst 
ein Sprung via $BD00 zum RAM-Disk- 
Driver. 


2. Dieser wertet den IOB aus und über- 
prüft zunächst, ob der für die RAM-Disk 
willkürlich festgelegte Slot, bei unserem 
Driver Slot 3, als Jetzt-Slot vorgegeben 
ist. Ist dies nicht der Fall, so wird die 
Language Card wieder abgeschaltet und 
die normale RWTS bei $BDO6 fortgesetzt, 
wobei selbstverständlich bereits diejeni- 
gen Befehle, die ursprünglich bei 
$BD00-$BD05 standen, vom RAM-Disk- 
Driver erledigt worden sind. 


3. Stimmt jedoch der für die RAM-Disk 
festgelegte Slot 3 mit dem lOB-Jetzt-Slot 
überein, so holt sich der RAM-Disk-Driver 
die erforderlichen Parameter aus der 
RWTS-IOB und überträgt entweder den 
DOS-Puffer in den entsprechenden LC- 
Bereich oder umgekehrt. Danach wird der 
IOB aktualisiert (insbesondere durch Ein- 
trag von Fehler-Nummer 0) und der Dri- 
ver, nachdem die LC wieder abgestellt 
worden ist, über RTS verlassen. 


Da das Abstellen der LC nicht auf der LC 
selbst geschehen kann, wird eine 6 Bytes 
umfassende Mini-Routine in den Stackbe- 
reich $0100-$0105 kopiert und von dort 
aus die LC desaktiviert. 

Insgesamt gibt es 3 Typen des Rück- 
sprungs vom RAM-Disk-Driver in die un- 
teren 48K: 

a) Sprung über den Stack nach $BDO6, 
wenn die RAM-Disk laut IOB nicht verlangt 
war. 

b) Sprung über den Stack auf ein RTS bei 
$0103 mit gesetzten Carry-Flag und /O- 
Error in IOB, falls die RAM-Disk illegal 
angesprochen wurde (z.B. INIT XXX, 53 
oder Lesen einer Spur, die laut VTOC gar 
nicht existiert). 

c) Sprung über den Stack auf ein RTS bei 
$0103 mit zurückgesetztem Carry-Flag 
und Error = 0, falls alle Parameter der !OB 
gültig waren. 


Hinweis: Auf die LC-Softswitches sowie 
auf Memory-Management-Probleme 
schlechthin wird in einem späteren 
Peeker-Artikel eingegangen. 


4. Technische Anmerkungen 


a) Das Programm RAMDISKLC wird mit 
BRUN RAMDISKLC gestartet. Danach er- 
scheint ein Kurzmenü mit der Frage 
„RAMDISKLC mit Init J/N“, worauf Sie mit 
„J“ antworten. 

b) Die LC-RAM-Disk wird mit Slot 3, Drive 
1 oder Slot 3, Drive 2 angesprochen. 

c) Der 16K-RAM-Disk stehen 61 reine Da- 
tensektoren zur Verfügung, weil die 3 rest- 
lichen 256-Byte-Blöcke durch VTOC, Da- 
teinamensektor und den Driver selbst be- 
nutzt werden. 

d) Der eine und einzige Dateinamensektor 
kann 7 Dateieinträge aufnehmen. Das Ko- 
pieren von Dateien auf die und von der 
RAM-Disk mit dem FID-Programm der Sy- 
stem Master Diskette ist problemlos mög- 
lich. Doch sei darauf hingewiesen, daß FID 
einen Bug hat, der nicht an unserem RAM- 
DISKLC liegt. Dieser Bug läßt FID stets 
dann „durchdrehen“, wenn die Catalog- 
Spur voll ist, was bei uns nach 7 Dateiein- 
trägen bereits der Fall ist. Derselbe Bug 
würde auch auftreten, wenn man mehr als 
105 (14 - 7) Dateieinträge auf einer norma- 
len Diskette mit FID erzeugen wollte. Dann 
können Sie sich nur noch mit Reset reiten! 
e) Wenn aus Versehen neu gebootet wor- 
den ist, so starte man RAMDISKLC und 
antworte auf die Frage „Init J/N“ mit „N. 
Durch Neubooten wird der Inhalt der LC 
nicht zerstört, doch wird durch DOS 3.3 in 
die Speicherstelle $E000 der Wert $00 
gepokt, der eine in diesem Bereich liegen- 
de RAM-Disk-Datei modifizieren würde. 
Bei einer nach dem Patch 

$BFD3: EA EA EA 

initialisierten DOS-Diskette findet dieser 
Poke nicht mehr statt. 

Im übrigen starten Sie RAMDISKLC nur 
dann ein zweites Mal, wenn Sie zuvor neu 
gebootet haben. 

f} RAMDISKLC benutzt in den unteren 
A8K nur je 6 Bytes ab $BDO0O sowie ab 
$0100. 

9) Der Driver ist relativ gut gegen illegale 
Parameter abgesichert (besser als DOS 
3.3 selbst), so daß man RÄMDISKLC zum 
Üben der RWTS benutzten kann. Bei- 
spielsweise ist es nicht möglich, einen Bi- 
närfile in die Karte zu BLOADen oder eine 
Spur zu lesen, die auf Grund der VTOC 
gar nicht existiert. 
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Ob Sie die Mikrocomputerei als Freizeitvergnügen oder 
aus beruflicher Notwendigkeit betreiben: Mit MC dringen 
Sie jeden Monat tiefer ein in die Mikrocomputertechnik. 


Und einsteigen können Sie jederzeit... 


MC informiert Sie umfassend über Computer 
und Peripherie, über Programmiersprachen und 
Betriebssysteme... 


MC testet Hardware und 
prüft Programme... 


MG liefert Software-Ideen und regt an 
zum Selberbauen. Sie finden Applika- 


tionen vom einfachen Interface bis 
zum kompletten Seibstbausystem... 


MC macht ihre Leser Schritt für Schritt zu Mikro- 
computer-Profis. Interessiert? Dann machen Sie 


doch einfach von unserem nebenstehenden 


Kennenlern- Angebot Gebrauch... 





En m 
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MC gibt Ihnen viel, wenn Sie 
MC mit ein wenig technischem 
Verständnis entgegenkommen... 





Die Mikrocomputer-Zeitschrift, 
die ihre Leser 
jeden Monat weiterbringt. 








Ich möchte die MC unverbindlich kennen- 
lernen. Schicken Sie mir die beiden neue- 
sten Ausgaben kostenlos. Informiere ich 
Sie danach nicht anders, 
abonniereichdemcab _ 
zum Jahrespreis von DM 66,- (im Ausland 
DM 72,-) inkl. Porto. 


Name 
Beruf 
Strafe 
FZ/Or 


Datum/Unterschrift 


Die Kündigung ist jeweils 8 Wochen vor 
Ablauf des Abonnements möglich, 
Wichtig: Nach Erhalt des 2. kostenlosen 
Heftes kann ich innerhalb von 10 Tagen 
durch einfache schriftliche Mitteilung an 
den Verlag von einem Abonnement 
Abstand nehmen. 


Bitle hier Ihre zweite Unterschrift PEI 


r/) Bitte ausschneiden und einsenden an: 


Franzis” franzis Verlag, 
Postfach 37 01 20, 8000 München 37 


13 





ORG $611D ; CMP BDOOALT,X 


: BNE NOTDOS 
RAMDISKLC : DEX 
Se BPL DOSOKAY 
* 
von U.Stiehl/01.12.84 : LDX #5 
PATCHL LDA BDOONEU,X 
RAM-Diskariver für : STA $BD00,X 
16K-Language-Card i DEX 
Apple II+/IIe/IIc BPL PATCHI 
* 
61 Datensektoren * Verschiebe "Driver" nach $FFOO 
1 VTOC-Sektor (Catalog) * 
1 Dateinamen-Sektor (Catalog) LDA $C081 ‚ RDROM 
BEIAEERE _ a : LDA $C081 ;WRBK2 


63 Sektoren insgesant | LDX #$00 
MOVER1 LDA $6300,X 


Speicherverteilung ; STA $FFO00,X 
Te 5 INX 
BNE MOVER1 


$D000-$DOFF Bkl T. ‚oo VTOG | : RTS ;Exit 
$D100-$DIFF Bkl T. ‚OF CAT | * 
$D200-$DFFF Bkl T. ‚02-5.0F rer 
$D0O00-$DFFF Bk2 T. .00-5.0F = 
$E000-$EFFF Bk2 T. .00-S.0F : NOTDOS LDX +#8$00 
$F000-$FEFF Bk2 .S.00-8.0E € NOTDOSl LDA NOTDOS3,X 
$FFOO-$FFFF RAM-Diskdriver ! BEQ NOTDOS2 
JSR PRINT 
PTR EQU $CE ; INX 
IOB EQU $48 | s BNE NOTDOS1 
SECTOR EQU $FC ‚Temp! : NOTDOS2 JMP INITENDE 
RAM EQU $FC ;RAM-Disk 5 NOTDOS3 HEX &8D 
BUF EQU $FE :DOS-Puffer ASC "DOS modifiziert" 
STACK EQU $0100 ;Rücksprung HEX 878D00 
DOSWARM EQU $03D0 
PRINT EQU $FDED 
RDKEY EQU $FDOC 
HOME EQU $FC58 INITLC 
* 


oo Jo 0A GH | 


ERKKEKEEFEE  E  E  H ıE 


%* 


LDX #0 
MITINIT? LDA MENUE,X $D000-$FFFF auf 0 setzen 


BEQ JANEIN 
JSR PRINT Bereich $D000-FFFF Bk2 löschen 


INX 
BNE MITINIT? : NITLC LDY $C083 ; RDBK2 


JANEIN JSR RDKEY : LDY $C083 ;WRBK2 
CMP_ #'N" 2 LDA #$DO ;$D000 


BEQ NURSOFT STA PTR+1 
CMP_ #'"'n" LDA #0 
BEQ NURSOFT STA PTR 
CMP rg" TAY 
BEQ MITINIT STA {PTR),Y 
CMP #rj" INY 
BEQ MITINIT BNE Ll 
BNE JANEIN INC PTR+H 
* BNE Ll :$FFFF+1 
MITINIT JSR INITLC * 
NURSOFT JSR SOFTLC * Bereich $D100-DFFF Bkl löschen 
# Se 
INITENDE HEX EA LDY $C08B :RDBK1 
* : LDY $C08B ;WREKL 
JMP DOSWARM LDY #$D1 :$D100 
* STY PTR+l 
HEX 8D s TAY 
ASC "RAMDISKLC mit Init" 3 STA {PTR),Y 
ASC " J/N " : INY 
HEX 00 : BNE L2 
INC PTR+ 
LDX PTR+L 
CPX #$EO :$E000 
BNE L2 
* 
Eu 5 2 0 2 2 2 202 2 2 2 2 2 2 2 2 2 2 5 2 2 2 2 2 2 2 2 2 02 2 2 


DOS-Patch bei RWTS-Entry 
Catalog-Spur anlegen 


$BDO0O: 84 48 STY $48 
$BDO?2: 85 49 STA $49 Track $11, Sektor $00 = VTOC 
$BDO4: AO 02 LDY #$02 nach $D000-$DOFF von Bankl 
verschieben. 
$BD00: 2C 80 CO BIT $C080 RDBK2 
$BD0O3: AC 00 FF JMP $FFOO 5 LDX #0 
“= ? YTocl LDA VTOC2,X 
AB 85 BDOOCALT HEX 844885494002 ; STA $D000,X 
80 C0 BDOONEU HEX Z2C80C0AC00FF : INX 
* : BNE VTOC1 
05 SOFTLC LDX #5 * 
00 BD 88 DOSOKAY LDA $BD00,X * Kein Link-Byte anlegen, da nur 


KHK EFF FH 
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AD 81 CO 
AD 81 CO 
20 58 FC 


: 60 


*# 1 Sektor für Dateinamen reser- 


* viert ist = 


* 
LDA 
LDA 
JSR 
RTS 
* 


7 Dateien max. 


$c081 ; RDROM 
$co81 ;WRBK2 
HOME 

;Exit 


EEE FF FFIR 


Bank 1: $DO 


EkkKkKkK«N 


=. 
-J 
> 
co 
rn 


HEX 


* 


HEX 
HEX 


HEX 
HEX 
HEX 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


Anzahl der 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


* 
* 
“ 
* 
* 
* 
* 
* 
E 3 
* 
* 


HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


Catalog: Es 


namen-Sekto 
Sektor $00. 


11 HEX 


TEITL1211711 


12 HEX 


x» Hs HH Hr HH + 


00-$DFFF 


T.$11, S.$00 = VTOC = $D000-$DFFF 


00 :unused 


7 eh! 
OF :S, $OF 


03 :DOS 30 
0000 ;unused 
FE ;‚Vol.254 


0000000000 ;unused 
0000000000 
0000000000 
0000000000 
0000000000 
0000000000 

0000 


T/S-Paare pro TSL 
TA ;122max. 


00000000 ;unused 
00000000 


2], ‚letzter T. 


01 ‚Richtung 
0000 ;unused 
23 :35 Trkı 
10 ;16 Sek, 
0001 ;$0100 


Spurenbelegung-Bitmap 


Bit 1 = frei, Bit O0 = belegt 
Nichtbenutzte Spuren: $00-$10 


FEDCBA9876543210 
0000000000000000 belegt 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


.00 
ol 
.02 
‚03 
04 
05 
06 
07 
.08 
‚09 
.OA 
.DB 
„oc 
OD 
.OE 
„OF 
‚10 


AsssaHmmagaaddaddssd 


„mu. -. 


-mı wma wa we 


nm. we. 


a 


gibt nur 1 Datei- 
r $OF sowie 1 VTOC- 
Die Bitmap für die 


Catalog-Spur gilt als belegt. 


000000090 Tell 


T.$12 = $D200-$DFFF = S.,$02-$0F 


FEDCBA9Y87654352 10 


11100 


FFFCOOOO 
























Bank 2: $D000-$FFFF 






$D000-$DFFF 
$EOOO-$EFFF 


613 = 
7814 = 








HEX FFFFOOO0O0 ; Ta1l3 
6283: FF FF 00 269 HEX FFFFOOOO Te 1A 
T,$15 = $F000-$FEFF = S,$00-$0E 


FEDCBA9876543210 


274 OL IT IE] 


KK R« KH 


HEX 7FFFOOOO 1415 


Nichtbenutzte Spuren: $10-$22 











HEX 00000000 ;T.16 
6294: 00 00 00 281 HEX 00000000 ns re 
6298: 00 00 00 282 HEX 00000000 1.13 
629C: 00 00 00 283 HEX 00000000 19 
62A0: 00 00 00 284 HEX 00000000 ;TalA 
62AA: 00 00 00 285 HEX 00000000 LE 
62A8: 00 00 00 286 HEX 00000000 Sale 
B2AC: 00 00 00 287 HEX 00000000 ;2,1D 
62B0: 00 00 00 288 HEX 00000000 TI, lE 
62BA: 00 00 00 289 HEX 00000000 rl 
62B8: 00 00 00 290 HEX 00000000 >T.20 
62BC: 00 00 00 291 HEX 00000000 :Ta2l 
6200: 00 00 00 292 HEX 00000000 Me2 









* 
* Rest stets 
* 


















frei 





6204: 00 00 00 296 HEX 00000000 
6208: 00 00 00 297 HEX 00000000 
82CC: 00 00 00 298 HEX 00000000 
82D0: 00 0000 298 HEX 00000000 
62DA: 00 00 00 300 HEX 00000000 
62D8: 00 00 00 301 HEX 00000000 
62DC: 00 00 00 302 HEX 00000000 
S2EO: 00 00 00 303 HEX 00000000 
62EA: 00 00 00 304 HEX 00000000 
62E8: 00 00 00 305 HEX 00000000 
S2EC: 00 00 00 306 HEX 00000000 
62F0: 00 00 00 307 HEX 00000000 
62F4: 00 00 00 308 HEX 00000000 
62F8: 00 00 00 309 HEX 00000000 


HEX 00000000 








Muß bei $62FF enden! 


Bigentlicher Driver 


xkFkuexr 


sl8 ORG $FFOO ;$6300 1! 
319 * 

FF00: AC OA FF 320 DRIVERl JMP DRIVER2 0000 
321 * 

FFO3: 30 22 SLOT HEX 30 ;‚slot 3 

FFO4: 00 3235 TRACK HEX 00 

FFOS: 00 324 RDWRFLAG HEX 00 


ZERO 
* 
327 %* Rette IOB-Pointer 


HEX 00000000 













328 %* 
PFOA: 84 48 329 DRIVER2 STY IOB 
FFOC: 85 49 330 STA IOB+Hl 





33l * 

332 % Zunächst Bank 1 Read/Write 

3335 #* 
FFÜE: AD 8B 60 334 LDA $C08B ;RDBKl 


LDA $C08B ;WREK1 










Rette Zero-Page $00FC-$00FF 















LDX #3 
FF16: B5 FC 340 ZEROSAVE LDA RAM,X 


FF18: 9D 06 FF O9 34l STA ZERO,X 
FFlB: CA 342 DEX 


BPL ZEROSAVE 





* 
345 + Pseudo-Disk-Slot? 






346 * 
FFlIE: AO O1 34, PSshDT? LDY #501 
FF20: Bl 48 348 LDA (IOB),Y "Slot 


CMP SLOT 


5 
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FF25: FO 


416 
417 


420 
421 
a22 
AR3 
ara 
425 
426 
427 
428 
429 
430 
431 
A32 
435 
454 
455 
83 CO 436 


BEQ 
* 


RDWR? 


* Zurück zur normalen Rwts 


ie 

RWTS JMP 

* 

* Drive-Error 

* 

IOERROR LDY 
LDA 
STA 
SEC 
JMP 

* 


EXIT1 


#50D 
+$40 
(TOB}, ET 


EXIT2 


;Rwts 


‚I0O-Err. 


‚Carry! 


‚IO-Err. 


* Befehl: 1=Read oder 2=frite? 


* 

RDWR? LDY 
LDA 
BEQ 
CMP 


#$0C 
(IOB),Y 
TOERROR 
#3 


‚Befehl 
:Soek 
237 


BCS IOERROR 
% 
* DOS-Pufferadresse 


* 

PUFFER STA RDWRFLAG 
LDY #$08 
LDA (IOB),Y 
STA BUF 
INY 
LDA (IOB),Y 
STA BUF+L 


Track und Sektor in Bereich 
der LC-Karte umwandeln 


T.$11 S.$00 -> $DO00-$DFFF Bkl 
T.$11 S.$0OF -> $D100-$DIFF Bkl 
T.$12 02-0F -> $D200-$DFFF Bkl 
T.$13 00-0F -> $D000-$DFFF Bk2 
T.$14 00-0F -> $EO00-$EFFF Bk2 
T.$15 00-0E -> $F000-$FEFF Bk2 


KkHkKkkkKKEr KH 


LDY #804 

LDA (IOB),Y ; Track 
STA TRACK 

INY 

LDA (IOB),Y ‚Sector 
STA SECTOR 

TAX ‚i=Sector 


LDA TRACK 
CMP #$11 
BNE TI2? 
CPX #500 
BEQ DOOOBKIl 
CPX #$0F 
BNE IOERROR 
LDA #$D1 
BNE KEINADD 
CMP_ #$12 
BNE T13? 
CPX #$02 
BCS DOOOBK1 
#$13 
DOOOBK2 
#$14 
EOOOBK2 
+$15 
TOERROR 
#$0F 
FOOOBK2 
IOERROR ;$FFOO! 


;3.00/0F? 


;8.02-0F? 


* 
DOOOBKI #$DO :$D000 
ADDSECI 
SECTOR 
KEINADD RAM+1 
READ? ‚stets 
DOOOBK2 #$DO :$D000 
ADDSEC2 
EOOOBK2 +$EO ;$EO00 
ADDSEC2 
FOOOBK2 +$F0 :$F000 
ADDSEC2 
SECTOR 
RAM+1 
50083 ; RDBK2 


FFEB: 
FFFO: 


FFRl: 
FFFA: 


FFFT: 
FFFA: 
FFFC: 
FFFE: 


739 bytes 


40 
60 


2C 
ac 


AD 
F7 
F? 
F7 





LDA $C083 ; WRBK2 


LDY #0 0 
STY RAM ; Low=0 
LDA RDWRFLAG 
CMP #1 ;1=Read 
BNE WRITER 

* 

* Read = Von der LC nach "unten" 

3 

READER LDA (RAM),Y 
STA (BUF),Y 
INY 
BNE READER 
BEQ ZURUECK1 

= 

* Write = Von "unten" zur LC 

* 

WRITER LDA (BUF),Y 
STA {RAM),Y 
INY 
BNE WRITER 

* 

ZURUECKl CLC ‚okay! 
LDY +$0D 
LDA #$00 
SEA (TIOB),Y 
BCC BXIT2 


;o,Fehler 


* 
ee 
& 

* EXITl: Fortsetzung der normalen 
* Rwts bei $BDO6 


& 
EXITl JSR ZEROLOAD ;Rwts 
JMP STACK 


BEXIT2: Entweder I0O-Error mit BCS 
oder normaler Exit von 
RAM-Diskdriver mit BCC 


JSR ZEROLOAD ;Iü-Error 
LDA #860 ;RTS 
STA STACK+3 
JMP STACK 
* 
* Restore Zero-Page 
* 
ZEROLOAD LDX #3 
ZEROL1 LDA ZERO,X 
STA RAM,X 
DEX 
BPL ZEROLIl 


RDROM auf Stack schieben 


60100: 2C 82 CO BIT $C082 
60103: 4AC 06 BD JMP $BDO6 


KR KH 


LDX #5 
STACKMOV LDA STACKPRO,X 

STA STACK,X 

DEX 

BPL STACKMOV 


* 
* LDY #502 bei $BD04 vornehmen 
* 


LDY #502 
RTS 
* 
STACKPRO HEX 2C82C0 
HEX 4C06BD 
* 
LDA $C082 ;RDROM 
DA RESET 
DA RESET 
DA RESET 





RAMDISKLC RAM-Disk-VTOC Eigentlicher Driver 
$6200: $6300: AC OA FF 30 
BSAVE RAMDISKLC, A24861, L739 $6208: $6308: 00 00 84 48 
86210: 86310: CO AD 8B CO 
$6118: 00 00 00 A2 00 $6218: $6318: 9D 06 FF CA 
$6120: 49 FO 66220: $6320: Bl 48 CD 03 
$6128: DO 20 66228: $6328: C8 FF AO OD 
$6130: EE $6230: $6330: 38 AC CE FF 
$6138: EA 66238: $6338: FO FO C9 03 
$6140: 20 66240: $6340: FF AO 08 Bl 
$6148: 66248: $6348: Bl 48 85 FF 
$6150: $6250: 66350: 8D 04 FF C8 
$6158: $6258: 66358: AA AD 04 FF 
$6160: $6260: $6360: EO 00 FO 22 
$6168: | $6268: 46368: A9 DI DO IF 
$6170: $6270: 66370: EO 02 BO 12 
$6178: $6278: 66378: C9 14 FO 17 
$6180: $6280: $6380: EO OF DO 13 
$6188: $6288: $6388: 18 65 FC 85 
$6190: $6290: 46390: DO DO 06 A9 
$6198: 56298: 66398: 18 65 FC 
$61A0: 66240: S63A0: AD 83 CO 
$61AB: $62A8: G63AB8: 05 FF C9 
$61B0: $62B0: $63BO: 91 FE C8 
$61B8: $62B8: $63B8: FE 91 FC 
$61C0O: $62C0: $63C0: OD A9 00 
86108: $62C8: $63C8: D9 FF AC 
$61D0: $62D0: $63D0: A9 60 8D 
$61D8: $62D8: $63D8: A2 03 BD 
$61EO: 662EO: $63E0: 10 F8 
$61E8: $62ES: $63E8: 00 01 
$61LFO: $62FO: $63F0: 2C 82 CO 
$61F8: $62F8: $63F8: Co F7 FF 


1 | Hüthig BUCH-TIP 


1 7 u 


Apple DOS 3.3 — 
Tips und Tricks dBASE Il 


von U. Stiehl 


2. Aufl. 1984, 216 S., mit zahlreichen, 
ausführlich kommentierten Programm- von Wolfgang Eggerichs 
listings, kart., DM 28,— 1984, 174 S., kart., DM 39,80 
ISBN 3-7785-1049-5 ISBN 3-7785-0986-1 


Band 1: Einführung 
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Die RAM-Karten vo 


Die Firma IBS (Ingenieurbüro Speco- 
vius, Olper Str. 10, 4800 Bielefeld) ist 
bekannt durch eine riesige Auswahl an 
Zusatzkarten für den Apple Il Plus und 
lle (nicht lic, da letzteres Gerät keine 
Slots hat). Wer will, kann z.B. seinen 
Apple durch eine 68000-Karte (AP 20) 
oder Z80B-Karte (AP 22) aufwerten. 
Darüber hinaus sind diverse Interface- 
Karten für Techniker lieferbar. Im nach- 
folgenden Beitrag beschränken wir uns 
auf die RAM-Karten. 


RAM-Karten lassen sich in drei Gruppen 
einteilen: 


1. Reine RAM-Karten 


Wer eine RAM-Karte nur als RAM-Disk 
oder als sonstigen schnellen Zwischen- 
speicher für Daten benutzen will, wird sich 
selbstverständlich eine reine RAM-Karte 
kaufen. Zu den reinen RAM-Karten von 
IBS gehören 
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— AP 17: RAM-Karte mit maximal 256K, 
die in unterschiedliichen Ausbaustufen 
(64K, 128K, 196K und schließlich 256K) 
geliefert werden kann. Die oben abgebil- 
deten Karten zeigen drei der möglichen 
Ausbaustufen. Es liegen RAM-Disk-Driver 
für DOS 3.3, Pascal 1.1 und CP/M 2.2 vor, 
d.h. ProDOS fehlt z.Zt. noch. 

—- AP 33: RAM-Karte mit wahlweise 256K 
oder 1024K (= 1M) RAM. Es liegen die 
gleichen RAM-Disk-Driver wie bei der AP 
17 vor. 


2. Prozessor-RAM-Karten 


Prozessorkarten, die über zusätzliches 
RAM verfügen, lassen sich zwar ebenfalls 
meist als RAM-Disks einsetzen, doch wä- 
re es eine Geldverschwendung, etwa eine 
68000-Karte nur als Pseudo-Disk einzu- 
setzen. Umgekehrt, auch wenn man eine 
Prozessor-Karte normalerweise für den 
Einsatz eines applefremden Betriebssy- 


Mit Quellcode eines RAM-Disk-Drivers 


stems (CP/M usw.) benötigt, ist es ganz 
nützlich zu wissen, daß man unter DOS 
3.3 oder Pascal die Karte nicht brachliegen 
lassen muß. Zu den IBS-Prozessor-RAM- 
Karten gehören 

—- AP 20: INTEMEX 68000-Karte mit wahl- 
weise 128K oder 512K RAM. Es liegen 
RAM-Disk-Driver für DOS 3.3, Pascal 1.1 
und CP/M 2.2 vor, also auch hier noch 
nicht für ProDOS. 
— AP 25: INTEMEX 8086 mit wahlweise 
128K oder 512K RAM. Mit denselben Dri- 
vern wie bei der AP 20. 


3. Mehrfunktion-RAM-Karten 


Unter diesem Begriff fassen wir RAM-Kar- 
ten zusammen, die vielfältig eingesetzt 
werden können. Hierzu gehört insbeson- 
dere die 64K-Karte des Apple Ile (bei IBS 
als AP 27 lieferbar), die zusätzlich folgen- 
den Funktionen dienen kann: 

a) 80-Zeichendarstellung 








b) Double-Lores-Grafik 

c) Double-Hires-Grafik 

d) „Pseudo-Coprocessing” 

Die letztgenannte Funktion wird Gegen- 
stand eines gesonderten „Peeker“-Arti- 
kels sein. 


128K-RAM-Karte 


Nachfolgend beschränken wir uns auf die 
AP 20 mit 128K RAM (funktionsgleich mit 
der AP 17 in der 128K-Ausbaustufe), für 
die wir bereits vor einem Jahr Utilities für 
den Transfer von Meßdaten in unserer Hü- 
thig-Zeitschrift „CAL” veröffentlicht ha- 
ben. Diese Transfer- oder Move-Utilities 
umgehen den RAM-Disk-Driver, wodurch 
eine noch höhere Datenübertragungsrate 
erzielt werden kann, was bei Meßdatener- 
fassung bisweilen notwendig ist. 

Wie aus Diagramm 1 ersichtlich ist, wer- 
den die 128K ($000000-$01F0000) der 
AP 20 softswitchmäßig in 32 Blöcke zu je 





4K eingeteilt. Da der 6502-Prozessor nur 
64K adressieren kann, läßt sich ein Byte 
von der oder auf die Karte nicht mit z.B. 
LDA $OIFFFF 

STA $2000 

oder 

LDA $1111 

STA $011111 

direkt übertragen. Deshalb werden 3 A4K- 
Blöcke $D000-$DFFF, $E000-$EFFF und 
$F000-FFFF als Pseudo-Adressen für die 
1258K-RAM-Karte benutzt. Beispiel: 


LDA $C082 
STA $COCF 
LDA $1000 

STA $F000 

STA $C0CO 
RTS 


Block-Nr. für | 
32 4K-Blöcke | 


LC abstellen 

AP einschalten 
$1000 laden und in 
$01F000 speichern 
AP abstellen 





Softswitch 
für Slot 4 















Dieses Mini-Programm würde das Byte 
der Speicherstelle $1000 des Apple-RAM 
in die Speicherstelle $01F000 der AP 20 
übertragen. Man beachte also, daß STA 
$F000 nicht das Byte in die Appie-Lan- 
guage-Card $F000 oder gar in das Apple- 
ROM $F000 pokt. Welche Softswitches im 
einzelnen angesprochen werden müssen, 
ergibt sich aus einer (für Anfänger leider 
nicht besonders übersichtlichen) Tabelle, 
die in dem AP-20-Handbuch enthalten ist. 
Die Softswitches sind slotabhängig, wobei 
die RAM-Karte in einen beliebigen Slot 
gesteckt werden kann. Der Slotbereich, 
z.B. $C400-$C4FF ist nicht ROM, sondern 
RAM, so daß man den Driver für die RAM- 
Disk oder eine sonstige Transfer-Utility in 
diesen Bereich BLOADen kann, falls das 
Programm dort platzmäßig unterzubringen 
ist. Diese Methode hat jedoch einen klei- 
nen Schönheitsfehler, weil der Bereich 
$O1FFOO-$OIFFFF in den Slotbereich 
$Cn00-$CnFF „gemappt“ ist, so daß bei 






Pseudo-Adresse 
für LDA und STA 


Diagramm 1: Organisation der IBS-128K-RAM-Karte 


14 RAM-disk 48 


einer RAM-Disk dieser $01FF00-Bereich 
(= 1 Sektor) freigehalten werden muß, 
falls der Driver im Slot-RAM liegt. 


Die skizzierte Methode des Bank-Selec- 
ting mit 4K-Biöcken und dem Pseudo- 
Adreßbereich $DO000-$FFFF hat den Vor- 
teil, daß die Datenübertragungsrate selbst 
bei einer RAM-Disk, falls diese per RWTS 
angesprochen wird, 64K/s beträgt. Nach- 
teilig ist dagegen der Umstand, daß ein 
direkter Datentransfer zwischen 128K- 
Karte und Apple-LC nicht möglich ist. 


Deshalb dürfte ein ProDOS-RAM-Disk- 
Driver nur über einen Zwischenpuffer in 
den unteren 48K zu realisieren sein, weil 
PRODOS in der Bank 1 der LC liegt. Da- 
durch sinkt jedoch die Datenübertra- 


gungsrate stark ab. 
Echte 
128K-Adresse 


$000000 
$001000 
$002000 
$003000 
$004000 






$01D000 
$01E000 
$01F000 






Hinweis zu den Listings: Das Programm 
IBS-RAM-Diskdriver stellt den diassem- 
blierten Objekt-Code eines von Gerd 
Blanke für die Firma IBS entwickelten Dri- 
vers für die AP 20 dar, Man beachte, daß 
dieser Driver neben $BDO0 auch $A5B2 
als absolute DOS-Adressen benutzt, wes- 
halb manche modifizierten DOS-Versio- 
nen entsprechend angepaßt werden müs- 
sen. Der AP20.RAMDISKTEST zeigt, wie 
man auf die RAM-Disk per RWTS direkt 
zugreifen kann, womit eine Datenübertra- 
gungsrate erzielt werden kann, die einer 
Transfer-Utility (ohne RAM-Disk-Driver) 
sehr nahekommt. 

us 


1 














ORG $C400 



















il 

2 * 

3 * IBS-RAN-Diskdriver 

& x — 

5 * 

6 * RAM-Diskdriver für IBS-APRO 

T * 128K-RAM-Karte in Slot 4. 

8 * Von Gerd Blanke für IBS, 

9 * Bielefeld, geschrieben 

10 + Disassenbliert von U.stiehl. 

ll * Bei dieser Karte ist der 

12 * Bereich $Cn00-$CnFF Slot-RAM, 

13 * nicht Slot-ROM! 

14 * (Man beachte, daß nur der Driver 
15 * und nicht die SOFT- und INIT-Module 
16 * disassembliert wurden.) 





IOB EQU $0048 ‚von Rwts 


19 RDWR EQU $003C :Read/Write 
20  TRSEC EQU $003D ;Track/Sektor 
21 RWIS EQU $BDO4A ;weiter 

22 SETROM EQU $ASB2 ; FPINT 

23 INTERPR EQU $EO00 ;‚EPINT 

24 # 


25 * Wenn Slot 4, dann RAM-Disk, 
* andernfalls normale RWTS 
2 




















c400: 84 48 28 ENTRY STY IOB :von $BDOO 
(402: 85 49 29 STA IOB+l 

404: AO Ol 30 LDY #801 ‚Jetztslot 
6406: Bl 48 3 LDA (IOB),Y 

408: C9 40 ar CMP_ #$40 ;Slot 4 
CA40A: 08 33 PHP 

CAOB: AO OF 34 LDY #$0F ;Vorslot 
CA0D: Bl 48 55 LDA (IOB),Y 

CGAOF: 28 56 PLP 

C410: FO 10 St BEG SLDR1 

C4l2: C9 40 38 CMP_ #$40 

C414: DO 09 39 BNE OLDRFTS 

C4l6: A9 60 40 VORSLOT LDA #960 ;gepokt 
c4Al8: 91 48 Al STA (IOB),Y ;Vorslot 
C4lA: 68 dr INY 

CAlB: A9 01 43 VORDRIVE LDA #$01 ‚gepokt 
CAlD: 91 48 44 STA (IOB},Y ;Vordrive 


OLDRWTS JMP RWTS 
* 





















47 * Vorslot und Vordrive poken 
AS * 
ca22: C9 40 49 SLDRI CMP_ #$40 
c424: FO OD 50 BEQ SLDR2 
C426: 8D 17 CA 51 STA VORSLOT+Ll 
c429: A9 40 52 LDA #$40 ;Slot 4 
c42B: 91 48 53 STA (I0B),Y 
c42D: C8 54 INY 
CA2E: Bl 48 55 LDA (T0B),Y 
cA30: 8D IC CA 56 STA VORDRIVEHl 
c4353: AO 02 57  SLDR2 LDY #$02 ‚Jetztdrive 
0435: Bl 48 58 LDA (IOB),Y 
c437: AO 10 59 LDY: #$10 :Vordrive 
c439: 91 48 60 STA (IOB),Y 
CA3B: C9 02 61 CMP_ #$02 :Drive > 2? 


BCS IOERROR 









* 
* Befehl 
* 





ermitteln 








GA3F: AO 0C 66 LDY #$0C ‚Befehl 
0441: Bl 48 67 LDA  (IOB),Y 
BNE INIT? 













2% 
To * Bei Seek + Init sofort Exit 












1 %* 
C445: 18 "2 EXIT CC ‚00=Seek 
0446: AO OD 73 ERRNUM LDY 3#$0D ;Error-Nr. 
CA48: 91 48 74 STA (IOB),Y 
C4AA: 60 7 Rls ‚Ende 

TE %* 
CA4B: C9 04 77 INIT? CMP_ #$04 ‚04=Init 
C44D: DO 05 78 BNE READ? 
CAAF: A9 40 79  IOERROR LDA #$40 ‚1/0-Error 
C451: 38 80 SEC 


BCS ERRNUM 









* 


83 * Read=01 (BMI), Write=02 (BPL) 
84 = 
0454: AA 85 READ? LSR ;Bit OÖ bei Read 


ROR RDWR :Bit 7 bei RDWR 





* 
* Language Card (wegen Integer Basic) aktiv? 
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C4a5D: 
CAöF: 
C461: 
CA62: 
0464: 
C465: 
CA66: 
c469: 
CA6B: 
C46C: 
CASE: 
c470: 
CAT72: 
0474: 
0475: 
CATT: 
6479: 
CATB: 
CAD: 
CATF: 
0482: 
0485: 
0487: 
CABA: 
CABD: 
CA8F: 
0491: 
0493: 
0494: 
0496: 
0498: 


CASD: 
CASF: 
G4Al: 
C4A2: 
CAAS: 
CAAS: 
CAAT: 
CAA9: 
CAAC: 
CAAD: 
CABO: 
CAB3: 
CAB6E: 


CABA: 
CABD: 


Caco: 
GaCs: 
cac6: 
CacT: 
0469: 


Gatctc: 
CACE: 
caDl: 


C4D5: 


C4FO: 
GAF4: 
CAFB: 
CAFC: 
256 bytes 


A9 
20 
8A 


AA 


E2 
RZ 
E3 
Fö3 


08 
48 


48 


36 


c2 


cl 
BA 


82 
02 


00 
00 


F7 
co 


46 
B2 


AA 


c4 


64 
C4 


64 
CA 


c4 
04 


c4 
c4 


co 
co 


10 
10 


co 


AS 


Ah 


BA 
E6 
BES 
E7 


106 
107 
108 
109 
110 
711 
LJ2 
113 
114 
115 
116 
117 
118 
119 
120 
y21 
122 
123 
124 
125 


130 
131 
132 
153 
154 
135 
136 
137 
138 
139 
140 
141 
142 


145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
Or 
158 
159 
160 
161 
162 
163 
164 


1657 


172 
173 
174 
175 


LDA 
STA 
# 


* Track/Sektor in RAM-Disk-Bereich umwandeln 


# 
LDY 
LDA 
SEC 
SEC 
LSR 
TAX 
LDA 
LDX 
PHA 
AND 
BCC 
ADC 
TRSEC1 STA 
INY 
LDA 
AND 
ORA 
BIT 
BMI 
STA 
STX 
BPL 
TRSEC2 STA 
STE 
TRSECS LDA 
AND 
STA 
PLA 
AND 
ORA 
ORA 
STA 
* 
* DOS-Puffer 
* 
LDY 
LDA 
PHA 
INY 
LDA 
BIT 
BMI 
STA 
PLA 
STEH 
JMP 
DOSPUFF STA 
PLA 
STA 
3 


ermitteln 


INTERPR 
FPINT+L 


+504 
(IOB),Y 


#+$01 


APZOBANK, X 


#500 


#$FO 
TRSECI 
#507 
TRSEC 


(I0B),Y 
#$07 
TRSEC 
RDWR 
TRSEC2 
DUMMY2+2 
DUMMY2+1 
TRSECS 
DUMMYI+2 
DUMMYI+l 
(I0OB},Y 
+$08 
TRSEC 


#$0F 
TRSEC 
#+$C0 
SOFTON+L 


+$08 
(IOB},Y 


(TOB),Y 
RD#R 
DOSPUFF 
DUMMY1+2 


DUMMYI+L1 
RDROM 
DUMMY2+2 


DUMMYZ+1 


‚Basic-Anf, 






Spur 


:Low=00 


Sektor 


‘Write 


:Read 


;Low-Buffer 


‚High-Buffer 


‚Write 


;Read 


* Softswitches aktivieren 


* 
RDROM STA 
SOFTON STA 
+ 


$0082 
$coc2 


;LCOFF 
‚gepokt 


* Total gepokte Move-Routine: 
* Entweder Read AP2RO, 


* oder Read Puffer, 


* 

DUMMYI LDA 

DUMMYZ STA 
INX 
BNE 

SOFTOFF STA 

* 


$1000,X 
$1000,X 


DUMMY1 
$COCO 


Write Puffer 
Write AP2O 


; Dummy 
; Dummy 


* LC ein- oder ausschalten 


* 
FPINT LDA 

JSR 
TXA 
JMP 
* 
COPYRT ASC 
ASC 
* 


* 
APZOBANK HEX 
HEX 
HEX 
HEX 


x Tabelle der 


#$4C 
SETROM 


EXIT 


;gepokt 


;Error=0 


"xx (C) 1983 " 
"GERD BLANKExKkk&" 


AP2O-Bank-Softswitches 


E2DAEAFA 
F2D6ESF6 
ESD5SESFO 
FSD7ETFT 





: 4C 1B 03 


sql 
: 40 
ol 
: 00 
: 00 
: 00 

14 
05 
: 00 
a 
00 
201 
: 00 
: 00 
: 40 
01 


: 00 
: DS 


=0L 
: 20 
: 00 


0542: A9 
05344: 8D 
0347: A9 
0349: 8D 
0340: AY 
0O34E: 8D 
0351: EE 
0354: CE 
0357: AD 
035A: 30 
035C: A9 
O35E: AO 
0360: 20 
0363: BO 
0365: AC 
03568: 658 
0369: 68 
0O36A: A9 
036C: 20 
O36F: 60 


112 bytes 
4 


CO JTAUDND Hm 


4 RAM-disk Er 


ORG 3300 


AP2O ,RAMDISKTEST 


Für RAM-Disk mit 128K: 

Dauer des Testlaufs: 45 
Es werden also ca, 64K/s 
gelesen oder geschrieben 


KK FRFFERHENR 


RWTS EQU $03D9 
PUFFER EQU $2000 
PRINT EQU $FDED 
* 

JMP START 


DFB 1 
DFB $40 ;Slot 4 
DFB ‚Drive 1 
DFB ; Volume 
TRACK DFB ;Track 
SECTOR DFB ‚Sektor 
DFB 
DFB 
PUFFLOW DFB 
PUFFHIGH DFB 
DFB ; frei 
READWRIT DFB ; 1=R; 2=W 
ERRCODE DFB 
DFB ;volume 
DFB $40 ‚Slot 4 
DFB 1 :Drive | 


;$4000 


DEB20,.1,.259.216 


# 
TRCKANF DFB 1 
TRCKEND DFB 32 
TRCKCNT DFB 0 
“ 
* Von Track 1-32 je Read/Write 
# 
START LDA TRCKANF 

5TA TRCKCNT 
TRCKLOOP STA TRACK 

LDA #1 

STA READWRIT 

JSR READWRT 

LDA #2 

STA READWRIT 

JSR READWRT 

ING TRCKCNT 

LDA TREKCNT 

CMF  TRCKEND 

BEQ TRCKLOOP 

BGG "TRCEKLOGP 

RTS 


‚Zähler 


Read/Write eines Tracks 
von/in Sektor $0F-$00 
in/aus Puffer $2000-2FFF 


=kkKr%* 


READWRT LDA #16 16-1 

STA SECTOR 

LDA #<PUFFER 

STA PUFFLOW 

LDA #>PUFFER-1 ; 

STA PUFFHICH 
SECTLOOP INC PUFFHICH 

DEC SECTOR 

LDA SECTOR 

BMI RETURN 

LDA #>IOB 

LDY #<IOB 

JSR RWTS 

BCS ERROR 

JMP_ SECTLOOP 

PLA 

PLA 

LDA #587 

JSR PRINT 
RETURN RTS 
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AppleQuick 


Das handliche Nachschlagewerk 
für häufig gebrauchte Adressen 
und Befehle! 

64 Seiten über Applesoft, DOS, 
ProDOS, Pescal, CP/M 
Gleich anfordern! 


1 Grafik? 
| Pandabooks! 


Endiich anspruchsvolle Computer- ET 
grafik für BASIC-Programmierer! | 
Miıkrocomputer Grafik: 

- enthaält fast 80 lauffertige 
BASIC-Progremme, die die be- 
schriebenen Grafikkonzepte 
illustrieren 

- beschreibt "Hidden Line”- und 
"Hidden Surface”-Methoden, 
Skalierung, Rotation und Trans- 
lation von Grafiken 

- bietet eine Einführung in die 
Animatianstechnik 

3-89058-000-9 2925. DM 49,-- | 

komplett mit Disk DM 89,-- | 


 ikrocomputer 


2 Die Qualität kommerzieller Arcade- 
2] spiele \äßt sich mit APPLESOFT BA-) 
a SIC alleine nicht erreichen Jeffrey 

| Stanton führt in die Eigenarten der 
J hochauflösenden Apple-Grafik ein 


Apple II 
Raster Grafik 


und präsentiert schließlich eine Jeffrey Stanton 


: KH Reihe extrem schneller Assembiler- I 
j Routinen, mit denen Sie viele Effek- 
te bekannter Spiele selbst program- 
Ü] mieren können. Gute BASIC-Kennt- 1 


nisse werden vorausgesetzt, eine 
Einführung in Assembler-Program- 


2] mierung wird gegeben 


f komplett mit Disk 


Do 


2: Boch, 


Et ee 


“| Pandabooks, Bismarckstr. 67, 1000 Berlin 12, (030) 342 88 00 
1) BMW EM Bestellcoupon DBBEBRNBBSB EN NEM 


3-89058-006-8 2995 DM 49,-- 


DM 89, == 


22 Pascel-Programme, mit denen 
Ih Sie die Grofik-Mögtichkeiter: Ihres 
Apple voll ausschöpfen: 
"DESIGNER" ermöglicht es Ihnen, ei- 
gerie Zeicherisätze zu erıtwerfen, 
"GREDIT" unterstützt Sie beim Ent- 
\(\lwerfen kompletter Bildschirm- 
Grafiken; 

I"PRINTFOTO" bringt Ihre Entwürfe 
aufs Papier. Darüberhinaus bietet 
das Buch eire Fülle fertiger Proze- 

I duren, die Sie zeitsparend in Ihre | 
eigenen Programme einbauen konnen ES 

1 3-89058-009-2 2805. DM 49,-- 

} komplett mit Disk DH 89,-- 


Pascal Grafik 


Tom $wan 


In allen Buchhandlungen und Computershons oder direkt von: 


O V-Scheck liegt bei 
(spesenfreie Lieferung} 


OÖ per Nachnahme 
(zzgi Versandspesen) 


Name: 
Anschrift: 


EInEdrErt: 


TAI 





Ä 1% 
ij! 
= 


Ss "0 








Das im ProDOS-FILER enthaltene Teilpro- 
gramm zum Kopieren ganzer Disketten 
hat drei Nachteile: 


— Erstens ist es zu langsam, da immer nur 
schubweise 4 Spuren kopiert werden mit 
der Folge, daß beispielsweise bei der klas- 
sischen 35-Spur-Diskette 9 Durchläufe für 
Lesen und Schreiben erforderlich sind, 
was zu einer beachtlichen Geschwindig- 
keitsreduzierung führt, denn der Lauf- 
werkmotor muß insgesamt 19mal ein- und 
ausgeschaltet werden (1mal für Formatie- 
ren, 9mal für Lesen und 9mal für 
Schreiben). 


— Zweitens können neben dem Profile- 
Festplattenlaufwerk und dem 35-Spur- 
Diskettenlaufwerk keine anderen Disk- 
Drives, z.B. solche für 40- oder 80-Spur- 
Disketten benutzt werden. 


— Drittens kann man vom ProDOS-FILER 
nicht, wie dies bei dem früheren COPYA 
für DOS 3.3 der Fall war, direkt in den 
Applesoft-Modus zurück, sondern muß 
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von Ulrich Stiehl 


Ein schnelles ProDOS-Kopierprogramm 


vielmehr das BASIC.SYSTEM neu laden, 
wodurch unnötige Zeit verlorengenht. 


Nachfolgend werden deshalb zwei neue 
ProDOS-Kopierprogramme — PRODOS.- 
COPYA und QUICKCOPY — vorgestellt. 
Für beide Programme gilt gemeinsam: 


1. Sie sind nur für Diskettenlaufwerke, 
nicht für Festplattenlaufwerke gedacht, 
doch können beliebig viele Spuren kopiert 
werden, so daß auch 40- und 80-Spur- 
Disketten duplizierbar sind. 

2, Sie können verlassen werden, ohne daß 
man danach neu booten muß, d.h. das 
BASIC.SYSTEM wird nicht gelöscht oder 
verändert. 

3, Sie sind erheblich schneller als der Pro- 
DOS-FILER. Das Kopieren einer 35-Spur- 
Diskette dauert beim ProDOS-FILER 76s, 
beim PRODOS.COPYA 63s und beim 
QUICKTCOPY 378. 

A, Sie sind für Besitzer von 2 Laufwerken 
gedacht. (Für diejenigen, die nur über ein 
einziges Drive verfügen, können auf 


für 35-80 Spuren 


Wunsch der Leser spezielle 1-Drive-Ko- 
pierprogramme veröffentlicht werden. 
Schreiben Sie an die Redaktion von 
„Peeker“ |) 

5. Sie enthalten als Kleinzitat eine leicht 
modifizierte Version der Formatierroutine, 
die Bestandteil des ProDOS-FILERSs ist. 
Diese Routine kann unabhängig vom 
FILER mit 

BLOAD FILER, TSYS, A$7900, B$5900, 
LH0A3A 

eingeladen werden. Assembler-Program- 
mierer können die Routine dann mit 

LDA UNITNUMBER 

JSR $7900 

aufrufen. Zuvor kann man noch mit 

LDA VOLUME-NUMMER 

STA $79EF 

die Volume-Nummer und mit 

LDA SPUR-ANZAHL 

STA $79F4 

die Anzahl der Spuren festlegen. 

6. Sie können neben ProDOS- auch 
DOS-, Pascal- und CP/M-Disketten kopie- 


ren. Allerdings muß vorher auf alle Fälle 
das ProDOS-Betriebssystem gestartet 
worden sein. 


QUICKCOPY 


QUICKCOPY ist als professionelles Ko- 
pierprogramm für Besitzer des Apple Ilc 
oder des Apple Ile mit 64K-Karte gedacht. 
Es wird mit BRUN QUICKCOPY gestartet 
und meldet sich mit „Start J/N“, Bevor 
man „J“ oder „j" tippt, muß man bereits 
Original- und Duplikatdiskette eingelegt 
haben. Ferner sollte man daran denken, 
daß durch QUICKCOPY der Inhalt der 
RAM-Disk zerstört wird. 

Man muß bei QUICKCOPY im Gegensatz 
zum ProDOS-FILER und zum PRODOS.- 
COPYA keinen Fragenkatalog durchge- 
hen, sondern kann direkt mit dem Kopie- 
ren beginnen. QUICKCOPY gestattet eine 
individuelle Konfigurierung durch entspre- 
chende Pokes: 


BLOAD QUICKCOPY 


POKE 2222 + 3, Original-Slot (1-7) 
POKE 2222 + 4, Original-Drive (1-2) 
POKE 2222 + 5, Duplikat-Slot (1-7) 
POKE 2222 + 6, Duplikat-Drive (1-2) 
POKE 2222 + 7, Volume-Nummer 
(1-254) 

POKE 2222 + 8, INIT (0 = nein; 1 = ja) 
POKE 2222 + 9, Spur-Anzahl (35-160) 
POKE 2222 + 10, Durchläufe (?) 

POKE 2222 + 11, Puffer-Ende (?) 


BSAVE QUICKCOPY, A2222, 11881 


Anmerkungen: 


a) Man beachte, daß QUICKCOPY für 2- 
Drive-Besitzer gedacht ist, d.h. Original- 
Slot und -Drive dürfen nicht mit Duplikat- 
Slot und -Drive identisch sein. Die Drives 
brauchen indes nicht an demselben Slot 
angeschlossen zu sein. 

b) Die Volume-Nummer kann man ignorie- 
ren, da sie auch vom ProDOS-Betriebssy- 
stem ignoriert wird. Der ProDOS-FILER 
formatiert übrigens stets mit Volume- 
Nummer 1. 

c) Das INIT-Flag bestimmt, ob die Dupli- 
katdiskette vor dem Kopiervorgang forma- 
tiert wird oder nicht. Wenn man als Dupli- 
katdisketten bereits früher initialisierte Dis- 
ketten benutzt, kann man viel Zeit sparen, 
da dann QUICKCOPY nur 35s für den 
gesamten Kopiervorgang benötigt. 
QUICKCOPY prüft bei INIT-Flag = 0 (= 
kein INIT), ob die Diskette bereits forma- 
tiert war. Wenn dies nicht der Fall sein 





sollte, erfolgt die Formatierung automa- 
tisch. Man könnte also das INIT-Flag per- 
manent auf O setzen. 

d) Spur-Anzahl, Anzahl der Durchläufe 
und Puffer-Ende (als Page) sind techni- 
scher Natur. Beispiel: Eine 35-Spur-Dis- 
kette hat 140K Speicherkapazität. Da der 
interne Kopierpuffer von QUICKCOPY 
maximal /OK beträgt, benötigt man für ei- 
ne solche Diskette 2 Kopierdurchläufe 
(/OK mal 2 = 140K). Die Pufferobergrenze 
beträgt dann $9A00 und die Page wäre 
$9A. Das kleine Applesoft-Programm 
QUICKCOPY.PUFFER errechnet nach 
Eingabe der Spur-Anzahl automatisch die 
zu pokenden Werte für die Durchläufe und 
das Puffer-Ende. 

e) Die Ersatz-Parameter sind bei dem geli- 
steten Programm auf Slot 6, Drive 1 und 2, 
INIT ja und 35 Spuren eingestellt, also die 
normale Konfiguration für 2-Drive-Be- 
sitzer. 


QUICKCOPY gehört zu jenen sich selbst 
verschiebenden Programmen, die sehr 
schwer durchschaubar wären, wenn man 
nicht über den Quell-Code verfügte. Die 
nachfolgenden Anmerkungen beziehen 
sich auf die Zeilennummern des Ässem- 
bler-Listings: 


1-118: Umfaßt 
Sprung zum Menü. 


Parameter-Liste und 
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119-767: Enthält modifizierte und neu as- 
semblierte Formatierroutine aus dem Pro- 
DOS-FILER (hier nicht gelistet). 

768-801: Tastaturabfrage für „Start J/N“. 
802-844: Dieser Teil kopiert die Global 
Page von den unteren 48K des Mother- 
boards in die oberen 48K der 64K-Karte, 
sichert den momentanen Inhalt der Zero- 
Page und verschiebt dann das eigentliche 
Kopierprogramm komplett in die Zero- 
Page. Dies ist ungewöhnlich, jedoch we- 
gen der Softswitches der 64K-Karte hier 
besonders vorteilhaft, da somit die Disket- 
ten-Blocks direkt in die 64K-Karte geladen 
werden können, womit zeitraubende 
Move-Routinen entfallen. Die Datenüber- 
tragungsrate von ca. 8K/s wäre sonst für 
den 64K-Karte-Puffer nicht zu erreichen 
(280K : 35s = 8K/s). 

845-900: Aufruf der Formatierroutine. 
901-920: Aufruf der Kopierroutine in der 
Zero-Page. Danach wird der alte Zustand 
der Zero-Page wieder hergestellt und zum 
Menü zurückgesprungen. 

921-940: Unterroutine zum Sichern und 
Wiederherstellen der Zero-Page. 


941-951: Unterroutine, die Slot- und 


Drive-Nummer zur sog. Unit-Number in 
ein einziges Byte packt. 

952-978: Hier wird erstens die PRODOS- 
Spurprüfroutine gepatcht, so daß nunmehr 
auch Disketten mit mehr als 280 Blocks (= 
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Applesoft-Editor 
unter ProDOS-Betriebssystem 


von U. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1024-X 


Mit diesem neuen Editor — Übrigens 
der bislang einzige deutsche Pro- 
DOS-Editor — wird dem Applesoft- 
Programmierer ein Werkzeug zur ef- 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle- 
samt unter ProDOS nicht mehr lauf- 
fähig. 











Unter anderem sind folgende Fea- 
tures implementiert worden: 





















— Zeilenorientierter Editor mit jedem er- 
denklichen Redigierkomfort (Insert, 
Delete, Tab, Restore, freie Cursorbe- 
wegung In allen vier Richtungen, Einga- 
be von Ctrl-Buchstaben in Applesoft- 
Zeilen usw.) 


— Renumber (Zeilen-Umnumerierung) 

— Xreference (sortierte Variablenliste) 

— Suchen von Tokens, Strings und Varia- 
blen 

— dezimale und hexadezimale Umrech- 
nungen 

— Ausführung von Monitorbefehlen aus 
dem Editor heraus 

— Listen des Applesoft-Programms in 
speicherinterner Form als Hex-Dump 

| - Suchen von Hex-Folgen, Adressen 
oder Speicherstellen im gesamten 
RAM-Bereich einschließlich der 
Language-Card 

— frei definierbare Tastatur-Macrobefehle 









Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor- 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 









Gerätevoraussetzung: Apple Il+, Ile 
oder IIc 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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Diagramm 1: Speicherverteilung bei QUICKCOPY 


35 Spuren) kopiert werden können, und 
zweitens wird die RAM-Disk abgestellt, da 
die 64K-Karte als Puffer verwendet wird. 
979-1103: Dies ist die eigentliche Kopier- 
routine, Wenn eine 35-Spur-Diskette du- 
pliziert wird, wird in nur zwei Durchläufen 
oder Schüben von je 70OK, die sich in 
36.5K auf der 64K-Karte und 33.5K auf 
den unteren 48K einteilen, die ganze Ori- 
ginaldiskette auf die Duplikatdiskette ko- 
piert. Zeile 992-996 kontrolliert die Anzahl 
der Durchläufe. Zeile 1003-1024 ist die 
’/OK-Hauptlese- und -schreibschleife. Zei- 
le 1037-1045 aktiviert und deaktiviert die 
6AK-Karte. Zeile 1047-1079 kontrolliert 
die /OK-Lese-Schreibvorgänge, die durch 
die Read- und Write-Block-Routinen in 
Zeile 1081-1103 auf Blockebene durch- 
geführt werden. Die Block-Routinen gehö- 
ren zum sog. MLI = Machine Language 
Interface, das in einem späteren Heft von 
„Peeker" analysiert wird. 


Das Diagramm 1 veranschaulicht die 
Speicherorganisation von QUICKCOPY. 


2. PRODOS.COPYA 


PRODOS.COPYA - das dem alten 
COPYA für DOS 3.3 nachempfunden ist — 
läuft auf Jedem Apple mit 64K, z.B. Apple Il 


Plus oder Apple Ile ohne 64K-Karte usw. 
Es benutzt einen konstanten, 32K großen 
Datenpuffer, der 8 Spuren aufnehmen 
kann. Für 80-Spurlaufwerke wären damit 
10 Durchläufe erforderlich (gegenüber 5 
Durchläufen bei QUICKCOPY). PRODOS.- 
COPYA wird durch das Applesoft-Pro- 
gramm namens PRODOS.COPYA gestar- 
tet, welches seinerseits PRODOS.- 
COPYOBU einlädt. In dem Applesoft-Pro- 
gramm können in Zeile 120 die folgenden 
Variablen geändert werden: 


OS = Original-Slot 
OD = Original-Drive 
DS = Duplikat-Slot 
DD = Duplikat-Drive 
S = Spurenanzahl 


Wenn man mit dem Programm erst einmal 
vertraut ist, kann man auf PRODOS.- 
COPYA gänzlich verzichten und mit 
BRUN PRODOS.COPYOBJ 

das Kopierprogramm direkt starten, da es 
ein eigenes Menü mit „START J/N" hat. 
Aus Platzgründen ist zu PRODOS.- 
COPYOBVJ nur der Hex-Dump abgecruckt. 


Hinweis: In einem der nächsten Hefte von 
„Peeker“ wird ein FID-ähnliches Pro- 
gramm zum Kopieren von Dateien veröf- 
fentlicht werden. 


Das UCSD p-System. 


mm 

Teig Wunde Dean, 

En — 
Ver 


—— ORTRAN-77 — 


en 


N 


aumebo.du 
NPuamuy zb 


Muliakund 
ERBE Professionelle Softwarewerkzeuge von FOCUS: 

UCSD p-System: Das komplette Entwicklungssystem mit 
UCSD Pascal, FORTRAN-77, BASIC, acht verschiedenen 
Assemblern und dem INSIGHT Window Designer. Für mehr als 
100 Rechner: Ihre Software läßt sich leicht auf alle diese 

Rechner übertragen, 


MacAdvantage Der UCSOD Pascal Compiler für den 
Macintosh, der direkt mit dem Mac-Betriebssystem zusam- 
menarbeitet. Zugriff auf alle Macintosh-Features direkt 
von Pascal aus, volle Unterstützung für den 512K-'Fat 
Moc', symbolischer Debugger, Resource File Compiler. Der 
mitgelieferte Maus-Editor kannı in mehreren Fenstern 
mehrere, beliebig lange Dateien bearbeiten. 


T.L.D.U. Die programmierbare Disk-Utility für alle 
Computer der Apple II Serie, Mit Unterstützung für 35-, 
40-, 80- und 180-Spur-Laufwerke und Festplatten. Für DOS, 
CP/M, UCSD oder ProDÖS einstellbar. 100 Seiten deutsches 
Handbuch mit Tutorium, damit auch Anfänger Disketten edi- 
tieren und reparieren können. Empfohlener Verkaufspreis 

DM 99,-- einschließlich Mehrwertsteuer. 


FOCUS 


Computer GmbH 


Friesenstrasse 14 - 3000 Hannover 1 


Sie können sich diese Produkte bei Ihrem Apple-Händler 
ansehen oder uns unter 0511-345461 anrufen. 


24 Std. Reparaturservice 


Achtung: alle Geräte mit Seriennummer vom Hersteller 


> w 
Apple Ile | Drucker + Plotter 


Apple Ile mit 64 kb 2418-DM | Apple Soribe incl. Kabel 849,- DM 
Einstiegspaket let 12 
(Ile, Monitor, Disk mit Contr.) 3368,- DM 


Apple Imagewriter 15° 
Disk m. C. (Prodos, DOS) 1177,- DM incl. Kabel 

Apple A3 Plotter 4 Farben 
Disk o. Contr. 866,- DM Epson RX-80 
DuoDisk incl. Contr. 2016,- DM Epson FX-80 1479,- DM 
Profile 5 MB incl. Interf. 4299,- DM 
Il MOuse incl. Interface 376,- DM 


Epson FX-100 1917,- DM 
Apple lic 


Parallel Interface incl. Kabel 211,- DM 
2655,- DM 


Monitore + Karten 


Apple Ile Monitor 562,- DM 
Apple Ilc Monitor 512,- DM 
Zenith ZVM-122-EA bernstein 299,- DM 
Zenith ZVM-123-EA rün 307,- DM 
Taxan RGB Vision I, 15 MHz. 755,- DM 
Taxan RGB Vision Il, 18 MHz. 1073,- DM 
Taxan RGB Vision Ill, 20 MHz. 1368,- DM 
80 Zeichenkarte Ile 171,- DM 
80 Zeichenkarte + 64 kb 376,- DM 
RGB + 80 Zeichenkarte 399,- DM 
RGB + 80 Zeichen + 64 kb 707,- DM 


1484,- DM 


2176,- DM 
2252,- DM 
957,- DM 


Seriell Interf. für Apple Drucker 211,- DM 
parallel/seriell Interface 229,- DM 


Apple lic 


Macintosh 128 kb 6299,- DM 


Komplettpaket Macintosh 128 kb 


(lic incl. Monitor und 
Ständer) 


llc 2. laufwerk 


Ic Mouse incl. Mousepaint 


3249,- DM 
855,- DM 
262,- DM 


Auf alle Apple Produkte 
1 Jahr Garantie 


Sonstige 6 Monate (Epson ohne Druckkopf) 
Alle Preise incl. Mehrwertsteuer 


(110 V. Vers.) 
Macintosh 512 kb 
Aufrüstung auf 512 kb 2948,- DM 
Externes Laufwerk 1239,- DM 
Fordern Sie unsere Softwareliste an! 


5999,- DM 
9188,- DM 


Anfragen 


Wir liefern jede Software für Apple 
z.B. Aztek C-Compiler für Macintosh 
1699,- DM 


Fordern Sie unsere Listen an! 


Tel. 026 34/36.36/3637/3638/3639 


EL Telex: 8685 13 


Bestellungen 


IMCA/Auge Mailbox an U. Weidemann 
5455 Rengsdorf Wohnplatz Weidemann 
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ORG 2222 


QUICKCOPY für ProDOS O8BA: 00 


Gerätevoraussetzung: Apple Ilc 
oder IIe mit 64K-Karte und 
2 Laufwerken 
08BB: 60 
von U,Stiehl/06.10,84 08BC: EO 


Zur 


sk 

HOME EQU $FC58 
PRINT EQU $FDED 
PRERR EQU $FF2D 
HEXOUT EQU $FDDA 
RDKEY EQU S$FDOT 
MLI EQU $BFOO 
* 


Main $1400-$9A00 = 33.5K 


* 
* Aux. $0800-$9A00 = 36.5K 
” -———— = {o__n 
* 
+ 


Zusammen =. 70.0K 


PUFFBECM EQU $1400 ‚Main 
PUFFBEGA EQU $0800 ;AuX. 
* 

JMP STARTI 
# 
%— 


In diesem Bereich können die 
gewünschten Parameter gepokt 
werden. 


Original-Slot und -Drive 


OSLOT HEX 06 

ODRIVE HEX 01 

* 

* Duplikat-Slot und -Drive 
* 

DSLOT HEX 06 

DDRIVE HEX 02 

* 

* Volume-Nummer 1-254 


* 
VOLUME HEX 01 

* 

* Initflag: O=nein, 1>ja 


* 
INITFLAG HEX 01 
* 


“ 


Anzahl der Spuren, Anzahl der 
Durchläufe und Ende des Puffers 
müssen aufeinander abgestimmt 
sein. Es gilt im einzelnen: 


$23 Spuren, $02 Läufe, $9A Ende 
$24 Spuren, $03 Läufe, $6E Ende 
$28 Spuren, $04 Läufe, $5E Ende 
$50 Spuren, $05 Läufe, $83E Ende 
$AO Spuren, $0A Läufe, $8E Ende 


Jeder Lauf ist gleich groß, 
es gibt also keinen kleineren 
Restlauf., 100% optimal sind 
nur 35 = $23 Spuren, für die 
das Programm speziell 
geschrieben worden ist 


Spuren 
PURENl HEX 


Läufe 


KU KUFE HF THF NK FI FH HK FF EEE I I I I 5 55€ 


LAEUFEl HEX 
* 
= Ende 


* | = 20..0310F 


PUFFENDl HEX 


* Nachträglich ERROR-Numnmer hier 
* 
ERROR HEX 00 
% 
nm 
# 
* Original- und Duplikat-Unit 
* 
OUNIT HEX 60 se, Dl 
DUNIT HEX EO »s0.DE 
* 
ee ae li mim 
* 
START JSR HOME 
LDX #0 
START2 LDA STRING,X 
BEQ START3 
JSR PRINT 
INX 
BNE START2 
START3 JMP STARTA 
* 
STRING INV "xQUICK-COPY#" 
HEX 8D 
INV "U, STIEHL 84" 
HEX 8D8D 
ASC "START J/N " 
HEX 00 
HEX 0000000000 
HEX 0000000000 


* 


* 
| 
| 
| 
| 
I 
F 
1 
1 
1 
| 
1 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
1 
I 


ProDÖS-Format 


Dem FILER der Firma Apple 
mit Modifikationen entnommen. 
Hier nicht gelistet. 


Kt Hk: 


# 
ZARBA DS 256 
* 
* ProD0OS-Quickcopy 
# ZT 
+ 
START4A BIT $C010 ‚Strobe 
LDA #0 
IA ERROR ‚okay 
* 
* Durchläufe und Pufferende poken 
* 
LDA LAEUFEL 
STA: LAEUFEZ 
LDA PUFFENDl 
STA: PUFFEND2 
*# 
* MenÜ 
* 
STARTS RDKEY 
SeiE TH 
GOPY1 
+" m 
BEQ COPYl 
CMP  #'"N" 
BEQ EXITl 
CMP_ #'"n" 
BEQ EXITl 
BNE STARTS 
# 
* Okay-Exit nach Menü 


RTS 


Zero-Page retten und 
MLI-Routine in Zero-Page 
kopieren 


DER E 


OPY] JSR ZSAVER 


Global Page in 64K-Karte 
duplizieren 


«+ %* 





STA 
LDX 
MLICOPY LDA 
STA 
INX 
BNE 
STA 


+0 
MLI,X 
MLI,X 


MLICOPY 
$C004 ; WRMAIN 


Mehr als 280 Blocks zulassen 


JSR 


PATCH ‚Spuren 


Volume-Nummer und Spur-Anzahl 


für Format 


LDA 
STA 
LDA 
STA 


Slot/Drive 
packen 


LDA 
LDX 
JSR 
STA 
LDA 
LDX 
JSR 


* * 


* 
* 
* 
* 
* 
* 
* 
* 
* 


LDA 

STA: 
STA: 
STA: 
STA: 


Entry mit A = 
Exit mit A 


poken 


VOLUME 
VOLNR+1 
SPUREN1 
SPURNR+1 


in Unit-Nunmber 


OSLOT 
ODRIVE 
SLOTDRIV 
OUNIT 
DSLOT 
DDRIVE 
SLOTDRIV 


INIT-Routine aus PRODOS-FILER 
der Firma Apple aufrufen: 


Unit-Number 
Fehler-Number 


Mit Block $0000 anfangen 


#0 
RDBLOCK 
RDBLOCK+1 
WRBLOCK 
WRBLOCK+1 


Block 0 von nicht-formatierter 
Diskette lesen, un Lesekopf 
zu justieren 


LDA 
STA: 
LDA 
STA: 
JSR 


#>PUFFBEGM 
RDPUFF+1 
DUNIT 
RDUNIT 
READER 


Falls Lesefehler auf Duplikat, 
dann stets INIT, andernfalls 


INIT ja, 
INIT nein, 


BCS 

LDA 

BEQ 
* 


wenn INITFLAG = 1 
wenn INITFLAG = 0 


INIT ‚Fehler 
INITFLAG 
COPY2 


* Duplikat formatieren 


* 

INILT LDA 
JSR 
STA 
BEQ 

* 

* Fehler-Exit 

* 

EXIT2 JSR 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 


DUNIT 
FORMAT 
ERROR 
COoPY2 


ZLOADER 
HOME 
PRERR 
El . nt 
PRINT 
ERROR 
HEXOUT 
#$AO 
PRINT 
RDKEY 


$C005 OEE9Y: AC BD 08 


JMP STARTI ‚Exit 


Kopieren 


MLI-Unit-Number poken 


OPY2 LDA OUNIT 
STA: RDUNIT 
LDA DUNIT 
STA: WRUNIT 


JSR CGOPY3 
BCS EAÄITR 


Okay-Exit nach Kopie 


JSR ZLOADER 
JMP START ‚Exit 


Zero-Page saven und loaden 


ZSAVER LDX #0 
ZSAVE LDA: $0000,X 
STA ZAREA,X 
LDA MARKER+1,X 
STA: $0000,X 
INX 
BNE ZSAVE 
RTS 
* 
ZLOADER LDX #0 
ZLOAD LDA ZAREBEA,X 
STA: $0000,X 
INX 
BNE ZLOAD 
RTS 
* 
#*# Slot + Drive in Unit-Number 
ö 
SLOTDRIV ASL 
ASL 
ASL 
ASL 
CPX #1 ‚Drive 1 
BEQ SLOTDR 
ORA #%10000000 
SLOTDR RTS 
* 
* Spurprüfroutine patchen 
’ 
PATCH LDA $C083 
LDA $C083 
* 
LDA #$18 
STA $F809 
LDA #$90 
STA $F80A 
LDA #804 
STA $F80B 
* 
* RAM-Disk abstellen 
* 
LDA #$4C 
STA $FF18 
LDA #$3B 
STA $FF19 
LDA #$FF 
STA $FFIA 


LDA $C081 
LDA $C081 
RTS 


NOP 


* 


In 2 Schüben je 70K kopieren 
50800-$9400 AUX 36.5K 
$1400-$9A00 MAIN 33.5K 


=k kr * 





En 


EEE. 2" 
= — —_ um u — 
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* 


DRG 


50000 


* 2 mal 70OK lesen und schreiben 


* 
copY3 


En 
LAEUFE2 
PUFFEND2 
* 


JSR 
BCS 
DEC 
BNE 
RTS 


HEX 
HEX 


* 70K lesen 


* 
COoPY4 


JSR 
LDA 
JSR 
BCS 


JSR 
LDA 
JSR 
BCS 


COPY4A 

MAINRAM ‚Fehler 
LAEUFE2 

coPY3 


AUXRAM 

#>PUFFBEGA 

RDHUNK] 

MAINRAM ;Fehler 


MAINRAM 
#>PUFFBEGM 

RDHUNKL 

MAINRAM ‚Fehler 


70OK schreiben 


JSR 
LDA 
JSR 
BCS 


JSR 
LDA 
JSR 
BCS 
RTS 


AUXRAM 

#>PUFFBEGA 

WRHUNKI1 

MAINRAM ‚Fehler 


MAINRAM 

#>PUFFBEGM 

WRHUNKL 

MAINRAM ‚Fehler 


Füller für MLI-Zero-Page 
MLI benutzt $003A-$004F 


HEX 
HEX 
HEX 
HEX 


000000 

0000000000000000 
0000000000000000 
0000000000000000 


Zwischen unteren und oberen 
47.5K $0200-$BFFF umschalten 


AINRAM 


MAINRAM1 
* 
AUXRAM 


* 
* Read 
+ a 


* 
RDHUNKI1 
RDHUNKZ 


RDHUNK3 


RDHUNKA 


WRHUNKI 
WRHUNK2 


STA 
STA 
BCC 
STA 
RTS 


STA 
STA 
RTS 


$C002 :RDMAIN 
50004 :WRMAIN 
MAINRAML 

ERROR 


50003 ;RDAUR 
$C005 ;WRAUX 


RDPUFF+1 
READER 
RDHUNKA 
RDPUFF+1 
RDPUFF+1 
RDBLOCK 
RDHUNKS 
RDBLOCK+1 
RDPUFF+1 
PUFFENDZ 
RDHUNKZ 


WRPUFF+1 
WRITER 
WRHUNKA 
WRPUFF+L 
























ING WRPUFF+1 


0087: E6 AD 1072 ING WRBLOCK 
0089: DO 02 0.13 BNE WRHUNKS 
008B: E6 AB 1074 INC WRBLOCK+I1 
008D: A5 AG 1075 WRHUNK3 LDA WRPUFF+1 
008F: C5 OB 1076 CMP  PUFFEND2 
0091: 90 EB 1077 BCC WRHUNK2 
0093: 18 1078 CLC ‚C=0| 
0094: 60 1079 WRHUNK4 RTS 
1080 * 
1081 # Read-Block 





1082 * 
0095: 20 00 BF 1083 READER JSR MLI 
0098: 80 1084 RDCOM HEX 80 ‚Read 
0099: 9C 00 1085 DA  RDCOUNT 


RTS 
* 










0090: 03 1088 RDCOUNT HEX 03 
009D: 60 1089 RDUNIT HEX 60 
009E: 00 16 1090 RBPUFF HEX 0016 ; LLHH 


RDBLOCK 
Es 
* Write-Block 
* 
00A2: 20 00 BF 1095 WRITER JSR MLI 


HEX 





















00A5: 81 1096 WRCOM HEX 81 ;Write 

0046: AY 00 1097 DA  WRCOUNT 

00A8: 60 1098 RTS ‚c=0/1 
10939 & 

0049: 03 1100 WRCOUNT HEX 03 

00AA: EO 1101 WRUNIT HEX EO 

00AB: 00 16 1102 WRPUFF HEX 0016 ; LLHH 


00AD: 00 00 1103 WRBLOCK HEX 0000 ; LLHH 
1881 bytes 





PRODOS. COPYA 


100 ON PEEK (3000) = 76 AND PEEK (3001) = 193 AND 
PEEK (3002) = 11 GOTO 110: PRINT CHR$ (4)"BLOAD 
PRODOS.COPYOBJ"" 

110 PRINT CHR$ (21): HOME : INVERSE : HTAB 14: PRINT 
"PRODOS.COPYA": HTAB 14: PRINT "U. STIEHL 84": 
NORMAL : PRINT : PRINT 

120 05 = 6:0D = 1:DS = 6:DD = 2:5 = 35 

130 IF 0S = DS AND OD = DD THEN PRINT "NUR FUER 2 
DRIVES!"; CHR$ (7): END 

140 PRINT "ORIGINAL-SLOT: "0S;: HTAB 22: PRINT 
"SDUPLIKAT-SLOT: "DS: PRINT "ORIGINAL-DRIVE: "OD; : 
HTAB 22: PRINT "DUPLIKAT-DRIVE: "DD 

150 PRINT : HTAB 13: PRINT "SPURENANZAHL:"S 

160 PRINT : HTAB 14: PRINT "START J/N "; 

170 GET XS: ON X$ = "J" OR X$ = "j" GOTO 180: ON IS < > 
ut AND XS < > "n" GOTO 170: HOME : END 

180 YVTAB 8:: HTAB 11: CALL - 958: PRINT "DISKETTEN 
EINLEGEN": PRINT : HTAB 14: PRINT "W = WEITER "; 

190 GET X$: IF X$ < > "W" AND X$ < > "w' GOTO 190 

200 C = 3000: POKE C + 3,085: POKE C + 4,0D: POKE C + 
5,DS: POKE C + 6,DD: POKE C + 7,5 

210 B=S x 8: POKE C + 9, INT (B / 256): POKEC+8,B — 
PEEK (C + 9) *» 256 

220 CALL C 

230 IF PEEK {C + 10) < > 0 THEN HOME : PRINT "FEHLER 

v. CHR$ (7);: GET X$ 

RUN 110 
























2Aa0 





QUICKCOPY. PUFFER 


100 INPUT "Spuren:";5 
110 BG = 140: REM Blockanzahl 
120 PE = 154: REM HH $9A00 


















130 B=5»38 
140 L=B / BG: REM L=Läufe 
150 IF L= INT (L) THEN 170 


160% INT (L) +1 
170.7 = BG = INT (BZ L) 
180 PE = 154 — T 
190 HOME : PRINT "Spuren:"S 
200 PRINT "Läufe:"L 
210 PRINT "Pufferende:"PE 
220 G = (PE x 256 — 5120 
+ PE x 256 - 2048) = L 
230 PRINT "Gesant:"G: 
PRINT "Kilobyte:"G / 1024 
240 BEL=6G / 512: IEB> EL 
THEN GOTO 160 
250 PRINT "Blocks: '"BL 
260 PRINT "Puffergröße:"G /L 
























































































QUICKCOPY Hex-Dump 


BSAVE QUICKCOPY, ARA22, L1881 
Start mit BRUN QUICKCOPY 
Neustart mit CÄALL 2222 








$08A8: 00 00 00 00 00 00 AC BD 
$08B0: 08 06 01 06 02 01 01 23 
$08B8: 02 9A 00 60 EO 20 58 FC 
$08C0: A2 00 BD DO 08 FO 06 20 
$08C8: ED FD ES DO F5 4C 3A 0E 
$08D0: 2A 11 15 09 03 OB 2D 03 
$08D8: OF 10 19 2A 8D 15 2E 20 
$08E0: 13 14 09 05 08 0C 20 38 
$S08E8: 34 8D 8D D3 DA C1 D2 DA 
$08F0: AO CA AF CE AO 00 00 00 
$08F8: 00 00 00 00 00 00 00 00 
50900: 08 78 20 3A 09 28 C9 00 
$0908: DO 02 18 60 C9 02 DO 05 
80910: A9 2B AC 21 09 C9 01 DO 
$0918: 05 A9 27 AC 21 09 18 69 
$0920: 30 38 60 0A OE 24 OD 8D 
50928: 36 OD 8A AA AA AA AA AB 
$0930: AD 36 0D 20 C6 0A 4AE 24 
$0938: OD 60 AA 29 70 8D 23 0D 
50940: 8A AE 23 OD ZA A9 00 2A 
50948: DO 06 BD 8A CO AC 53 09 
50950: BD 8B CO BD 89 CO A9 D7 
50958: 85 DA A9 50 8D 24 OD A9 
50960: 00 20 23 09 A5 DA FO 06 
50968: 20 3A 0C AC 64 09 A9 01 
$0970: 85 D3 AQ AA 85 DO AD 20 
$0978: OD 18 69 02 85 DA A9 00 
$0980: 85 D1 A5 D1 AE 23 OD 20 
$0988: 23 09 AE 23 OD BD 8D CO 
$0990: BD 8E CO AS BD 8E CO BD 
$0998: 8C CO 98 10 05 AS 02 AC 
$09A0: F9 09 20 63 OC 90 OE AY9 
$09A8: 01 A4 DA CC IF 0D BO 02 
$09B0: A9 04 AC F9 09 AA DA CC 
$09B8: IF OD BO 05 A9 04 AC F9 
$09C0: 09 CC 20 OD 90 05 A9 03 
$09C8: AC F9 09 AD 22 0D 8D 25 
$09D0: OD CE 25 OD DO 05 A9 01 
$09D8: AC F9 09 AE 23 0D 20 6A 
$09E0: OA BO EE A5 D8 DO EA AB 
$09E8: 23 OD 20 07 0A BO EZ E6 
$09F0: D1 A5 DI C9 23 90 8B A9 
$0O9F8: 00 48 AE 23 OD BD 88 CO 
$0A00: A9 00 20 23 09 68 60 AO 
$0A08: 20 88 FO 5C BD 8C CO 10 
$0A10: FB 49 D5 DO FA EA BD 86 
SOA18: CO 10 FB C9 AA DO F2 AO 
$0A20: 56 BD SC CO 10 FB C9 AD 
$0A28: DO E7T A9 00 88 84 D5 BD 
$0A30: 8C CO 10 FB C9 96 DO 30 
50A38: AA D5 DO FO 84 D5 BD &C 
$0AAO: CO 10 FB C9 96 DO 21 A4 
S0A48: D5 C8 DO FO BD SC CO 10 
$0A50: FB C9 96 DO 13 BD SC CO 
$0A58: 10 FB C9 DE DO OA EA BD 
$0A60: 8C CO 10 FB C9 AA FO 5C 
50A68: 38 60 AO FC 84 DC CB DO 
$0A70: 04 E6 DC FO F3 BD 8C CO 
$0A78: 10 FB C9 D5 DO FO EA BD 
$0A80: 8C CO 10 FB C9 AA DO F2 
S0ABS: AO 03 BD 8C CO 10 FB C9 
$0A90: 96 DO ET A9 00 85 DB BD 
$0A98: SC CO 10 FB 2A 85 DD BD 
$0AAO: 8C CO 10 FB 25 DD 99 D7 
SO0AAB: 00 45 DB 88 10 E7 A8 DO 
$0ABO: B7 BD SC CO 10 FB C9 DE 
$0AB8: DO AE EA BD 8C CO 10 FB 
$0oACO: C9 AA DO AA 18 60 SE 37 
S0AC8: OD 8D 36 OD CD 24 OD FO 
$0ADO: 5C A9 00 8D 38 OD AD 24 
$0AD8B: OD 8D 39 0D 38 ED 36 OD 
$0AEO: FO 37 BO 07 49 FF EE 24 
SOAES: OD 90 05 69 FE CE 24 OD 
SOAFO: CD 38 OD 90 03 AD 38 OD 
$0AFS: C9 0C BO 01 A8 38 20 1D 
$0B00: OB B9 AB 0C 20 3A 0C AD 
$0B08: 39 OD 18 20 20 0B B9 57 
$0B10: 0C 20 3A 0C EE 38 OD DO 
$0Bl18: BD 20 3A 0C 18 AD 24 OD 






$0B20: 
$0B28: 
$0B30: 
$0B38: 
$0B40: 
$0B48: 
$0B50: 
$0B58: 
$0B60: 
$0B68: 
$0B70: 
$0B78: 
$0B80: 
$0B88: 
$0B90: 
50898: 
$0BAO: 
$0BAB: 
$0BEO: 
$0BB8: 
$0BCO: 
$0Bc8: 
$0BD0: 
$0BD8: 
SOBEO: 
SOBEB: 
$OBFO: 
$OBFB8: 
$0C00: 
50008: 
$0C10: 
$0c18: 
$0C20: 
50028: 
50030: 
$0C38: 
$0C40: 
80048: 
50050: 
80058: 
$0C60: 
H0C6B: 
$0C70: 
50078: 
$0C80: 
S0OCB88: 
$0C90: 
$0C98: 
$0CA0: 
SOCAB: 
$0CBO: 
$OCB8: 
$0CCO: 
SOCCB: 
$0CDO: 
$0CD8: 
$0CEO: 
SOCEB: 
SOCFO: 
$SOCF8: 
$0D00: 
$0D08: 
$0D10: 
$0D18: 
$0D20: 
$0D28: 
$0D30: 
$0D38: 
S0OD40: 
$0D48: 
$0D50: 
$0D58: 
$0D60: 
$0D68: 
$0D70: 
$0D78: 
$0D80: 
$0D88: 
$0D90: 
$0D98: 
$0DA0: 
SODAB: 
$0DBO: 
S0DB8: 
$0DCO: 
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PRODOS.COPYOBJ Hex-Dump 


BSAVE FRODOS.COPYOBJ, A3000, L1502 


start mit BRUN PRODOS.COPYOBJ 


Neustart mit CALL 3000 


$0BB8: 
$0BCO: 
$0BC8: 
$0BDO: 
SOBD8S: 
$OBEO: 
$OBES: 
SoBFO: 
$OBFB8: 
$0C00: 
$0C08: 
$0C10; 
$0C18: 
50020: 
$0C28: 
$0C30: 
60038: 
$0C40: 
$0C48: 
$0C50: 
$0058: 
$0C60: 
$0C68: 
80070: 
FOCTS: 
$0C80: 
$0C88: 
$0CS0: 
$0098: 
SOCA0: 
SOCAB: 
$0CBO: 
$OCBB: 
SOCcO: 
SoCcc8: 
$0CDO: 
$0CD8: 
$0CEO: 
$OCES: 
$0CFO: 
$OCF8: 
$0D00: 
$0D008: 
$0D10: 
$0D18: 
$0D20: 
$0D28: 
$0D30: 
$0D38: 
$0D40: 
$0D48: 
$0D50: 
$0D58: 
$0D60: 
$0D68: 
$0D70: 
80078: 
$0D80: 
S0D88: 
$0D90: 
$0D98: 
S0DAO: 
S0DAB: 
$0DBO: 
$0DB8: 
$0DCO: 
$oDcB: 
$0DDO: 
$0DD8: 
$0DEO: 
$0DES: 
$0DFO: 
$0DF8: 
$0E00: 
$0EOB: 
$0EIO: 
$0EI8: 
$0E2O: 
$0E28: 


ac 
18 
FC 
20 
10 
05 
20 
38 
D4A 
08 
DO 
Aa9 
05 
30 
36 
AD 
10 
8A 
DO 
BD 
85 
00 
20 
85 
10 
80 
23 
BD 
SC 
FY 
01 
Ag 
IF 
DC 
ac 
10 
ac 
OD 
25 
D1 
00 
A9 
20 
FB 
co 
6 
DO 
8C 
A4 
co 
DS 
FB 
10 
8C 
38 
04 
10 
Sc 
AO 
96 
8C 
st 
00 
B7 
DO 
c9 
10 
5C 
10 
FO 
10 
CD 
C9 
OE 
39 
OF 
BD 
29 
80 


06 
01 
BD 
E8 
OF 
13 
09 
8D 
AF 
3A 
60 
el 
ac 
DA 
AA 
zu 
23 
10 
BA 
BD 
50 
0C 
ac 
AA 
02 
Dl 
23 
48 
10 
63 
cc 
FO 
05 
10 
AD 
10 
AB 
Ad 
07 
cg9 
23 
23 
5C 
DO 
9 
Co 
00 
FB 
FO 
c9 
FO 
DO 
DE 
FB 
FC 
FO 
D5 
FB 
8c 
Ag 
FB 
FB 
88 
co 
BD 
A4 
10 
8D 
10 
07 
69 
90 
01 
OF 
20 
OF 
OF 
OD 
37 


01 
60 
D9 
DO 
04 
Ol 
05 
D3 
CE 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lie 64K-Karte 


vonW. Stiehl 


1984, Diskette und Manual, DM 48, — 
ISBN 3-7785-1022-3 


Softbreaker ist ein Ässemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d.h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 





ProDOS 
und „Kompatible“ 


Ein allgemeines Patch-Programm 
von Arne Schäpers 


Mit Hilfe der nachfolgenden Patch-Utility 
PRODOS.PATCH dürfte man ProDOS auf 
den meisten Kompatiblen zum Laufen 
bringen. Da der (neugeschriebene) Kom- 
mentar zu diesem Programm erst nach 
Redaktionsschluß einging, haben wir uns 
entschlossen, in diesem Heft entgegen 
unseren sonstigen Gepflogenheiten nur 
das nackte Programm abzudrucken, da 
bereits viele Besitzer auf eine solche Utili- 
ty, die über den F8-Kleinschreibumrüst- 
satz-Patch für Apple-Il-Plus-Geräte aus 
„Peeker“, Heft 1/84 hinausgeht, gewartet 
haben. 


Hinweis zum Programm 


1. Speichern Sie die Utility PRODOS.- 
PATCH, nachdem Sie diese eingegeben 
haben, auf einer DOS-Diskette. 

2. Erstellen Sie jetzt eine exakte Kopie der 
Original-USERS.DISK — ProDOS Version 
1.0.1 vom 1. Jan. 84 — mit Hilfe eines 
normalen DOS-Kopierprogramms, z.B. 
COPYA. 

3, Dann starten Sie das Programm PRO- 
DOS.PATCH von der DOS-Diskette. 
Wenn das Menü erscheint, legen Sie die 
Kopie der USERS.DISK in dasselbe Lauf- 
werk ein und drücken Sie nun eine beliebi- 
ge Taste. Der Patch-Vorgang ist nach we- 
nigen Sekunden abgeschlossen. 

A. Booten Sie nunmehr neu mit PR#6 0.2. 





PRODOS. PATCH 


10 
20 
30 
40 
50 
60 
TO 


80 

90 
100 
105 
110 
110 
120 
125 
130 
139 
199 
200 


205 
210 
220 


230 


240 
299 
300 


305 
310 
520 


330 
340 
399 
400 
405 
410 
ard 


450 
A440 
499 
500 
510 
520 
530 
540 
950 


560 
570 
380 
605 
610 
620 


650 
640 
650 
700 
710 
I 
800 
805 
8l0 


820 
830 
840 
842 
844 
846 
860 
899 
900 


905 
910 
920 


HIMEM: 8192: TEXT : HOME 

REM 

REM RWTS-Aufruf; setzt 767 <> OÖ bei Fehler 
FOR X = 0 TO 9: READ A: POKE 768 + X,A: NEXT 
DATA S52.227.2.32,.21..3.110, 225 ,.2,98 

REM 





dos u 


IOB = 256 * PEEK (987) + 14 » 16 + 8: REM $B7E8 für 


48/64K 

BUFFER = 8192: REM $2000 

REM 

PRINT "Bitte 1:1 kopierte ProD0OS '"USERS.DISK'" 
PRINT 

PRINT "in den Drive, von dem dieses Programm" 
PRINT 

PRINT "aus gestartet wurde, einlegen" 

PRINT 

PRINT "und <Return> drücken: "; 

INPUT NE 25: SPRINT 

REM TEST FBCO 

IF PEEK {15 * 256 « 16 + 11 * 256 + 12 & 16) > 
THEN 300 

PRINT " - Patch auf $2055: JMP $20768": PRINT 
TRACK = 0:SECTR = 1:CMD = 1: GOSUB 800 

IF PEEK (BUF) < > 165 OR PEEK (BUF + 1) < > 67 
THEN 900 


3 


POKE BUF + 85,76: POKE BUF + 86,118: POKE BUF + 


87,52 
CMD = 2: GOSUB 800: REM Zurückschreiben 
REM TEST FBB3 


IF PEEK (15 * 256 ®» 16 + 11 x 256 + 11 #x 16 + 3) = 


14 *& 16 + 10 THEN 400 

PRINT !' - Patch auf $23C03: BNE $23DA'" 

TRACK = 1:SECTR = 12:CMD = 1: GOSUB 800 

IF PEEK (BUF} < > 168 OR PEEK {BUF + 1) <> 7 
THEN 900 

POKE BUF + 195,208: POKE BUF + 196,21 

CMD = 2: GOSUB 800: REM Zurückschreiben 

REM PATCH "Apple II" 

REM immer ausgeführt 

PRINT " — PATCH AUF $265B: SEC / NOP" 

TRACK = 1:SECTR = 9:CMD = 1: GOSUB 800 

IF PEEK ({(BUF) < > 169 OR PEEK {BUF + 1) <> 9 
GOTO 900 

POKE BUF + 91,56: POKE BUF + 92,234 

CMD = 2: GOSUB 800: REM zurück 

REM Test CAFF 

SL = PEEK (I0OB + 1) / 16 

CXLOC = 12 * 16 *# 256 + 256 x» SL + 255 

IF PEEK {CX) = 0 GOTO 700 

PRINT " - Patch im Boot: $081D: LDA #$00" 

TR — 0:5E6 - 0:CMB = 1: -GIsSuUB 300 

IF PEEK (BUF) < > 1 OR PEEK (BUF + 1) < > 56 
GOTO 900 

POKE BUF + 29,169: POKE BUF + 30,0 

CNMD = 1: GOSUB 800: REM zurück 

REM 

PRINT !"' - Patch im Relocator: $2507 LDA #$00" 
TRACK = 1:SECTR = 10:CMD = 1: GOSUB 800 

IF PEEK {BUF}) < > 56 OR PEEK (BUF + 1) < > 208 
GOTO 900 

POKE BUF + 7,169: POKE BUF + 8,0 

CMD = 2: GOSUB 800 

REM 

PRINT : PRINT "Modifikationen beendet," 

END 

REM CALL RWTS: Daten auf $2000 

POKE IOB + 3,0: REM Volume Number 

POKE IOB + 8,0: POKE IOB + 9,BUF / 256 


POKE IOB + 4,TRACK: POKE IOB + 5,5SECTR: PORE IOB + 


12, CMD 

POKE 767,0: CALL 768 

IF PEEK (767) = 0 THEN RETURN 

ERR = PEEK (IOB + 13) 

PRINT : PRINT CHR$ (7)"Fehler: "; 

IF ERR < > 16 THEN PRINT "1/0" 

IF ERR = 16 THEN PRINT "Write protected" 
END 

REM ERR Exit fÜr Datenprüfung 


PRINT : PRINT CHR$ (7}"Fehler: nicht die erwarteten 


Daten! 
PRINT 
PRINT " 
END 


auf der Diskette." 
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Der FRE-Befehl ist die langsamste Funktion des Applesoft-Interpreters mit einer 
Ausführungszeit von oft mehreren Minuten. Dem disassemblierten Listing dieser 
sog. Garbage-Collection, von Microsoft „String Space Compaction“ genannt, 
(eigentlich: Müllabfuhr; in Basic: Beseitigung von nicht mehr benötigten Strings) 
wird eine auf dem BASIC.SYSTEM-FRE-Befehl basierende DOS-3.3-FRE-Version 
gegenübergestellt, die alle Rekorde schlägt und deshalb sprichwörtlich den 


2 UTILITIES 


String-Müll wie ein Blitz beseitigt. 


Harald Grumser 





Müllabfuhr wie ein Blıtz 


Eine ultraschnelle Garbage-Collection-Routine 


1. Statische und dynamische 
Stringverwaltung 


Fast alle problemorientierten Program- 
miersprachen verfügen über eine mehr 
oder weniger große Anzahl von Befehlen 
zur Verwaltung von Strings (= Zeichen- 
ketten). Hinsichtlich der Verwaltung von 
Stringvariablen lassen sich zwei Arten un- 
terscheiden: statische Verwaltung von 


Strings mit konstanter Länge und dynami- 
sche Verwaltung von Strings mit variabler 





Länge. Im folgenden soll kurz auf die Un- 
terschiede dieser Verfahren eingegangen 
und ein Aspekt der dynamischen String- 
verwaltung, die Garbage-Collection (G/C), 
näher beleuchtet werden. 


In den meisten Programmiersprachen wird 
zur Verwaltung von Stringvariablen ein 
statisches Verfahren angewandt. Dabei 
muß der Benutzer jeden String zunächst 
bezüglich seiner Länge definieren, was 
normalerweise am Anfang des Programms 
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geschieht. Der Rechner ist dann in der 
Lage, jeder Stringvariablen einen ihrer 
Länge entsprechenden Speicherbereich 
zuzuordnen. In der Variablenreferenzliste 
(Variablenliste, Variablentabelle, VARTAB) 
wird dann statt des eigentlichen Strings 
dessen Adresse im Speicher und seine 
Länge abgelegt. Erfolgt nun eine Zuwei- 
sung, so wird die Zeichenkette in den ent- 
sprechenden Stringbereich übertragen 
und die Länge im Deskriptor (= Stringbe- 
schreiber) der Variablenliste aktualisiert. 
Hier zeigt sich ein entscheidender Nach- 
teil dieses Verfahrens. Abgesehen vom 
Mehraufwand des Programmierers, der je- 
de einzelne Stringvariable deklarieren 
muß, wird die Stringlänge ein einziges Mal 
festgelegt und kann danach nicht mehr 
geändert werden. Um nun allen Eventuali- 
täten während des Programmlaufs vorzu- 
beugen, ist man gezwungen, die einzel- 
nen Stringlängen so groß wie möglich 
festzulegen, was zu einer enorm ineffi- 
zienten Speicherausnutzung führt. Da der 
Implementierungsaufwand dieses Verfah- 
rens — gemessen an der dynamischen 
Stringverwaltung — bedeutend geringer ist, 
hat sie u.a auch Im Integer-Basic des Ap- 
ple II Anwendung gefunden. 


Die dynamische Handhabung von String- 
variablen offenbart sich dem Anwender in 
erster Linie durch den Wegfall der Längen- 
deklaration. Wird die Variable zum ersten 
Mal benutzt, so erfolgt auch hier ein Ein- 
trag Im entsprechenden Deskriptor, und 
die Zeichenkette selbst wird in der Regel 
oberhalb des freien Speicherbereichs ab- 
gelegt. Bei einer erneuten Zuweisung wird 
der neue String unter die bereits vorhan- 
denen geschrieben und der Deskriptor 
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entsprechend geändert. Erscheint also in 
einem Programm zunächst die Anweisung 
A$ = „OTTO“ und später die Zuordnung 
A$ = „FRITZ“, so steht sowohl „FRITZ 
als auch „OTTO“ im Speicher, obwohl 
„OTTO“ jetzt nicht mehr benötigt wird, 
also Garbage = Müll darstellt. „OTTO ist 
damit eine Stringleiche, die nur dazu ge- 
eignet ist, den verfügbaren Speicherraum 
zu schmälern. Im Laufe der Zeit würden 
sich immer mehr solcher Stringleichen an- 
sammeln, und der Rechner müßte sich 
wohl dann mit der Meldung „OUT OF ME- 
MORY"“ verabschieden, gäbe es nicht die 
Garbage-Collection oder Beseitigung der 
Stringleichen. 


Bei der Garbage-Collection werden alle 
noch aktuellen Strings soweit wie möglich 
nach oben verschoben, d.h. alle (passi- 
ven) Stringleichen werden entfernt und die 
verbleibenden (aktiven) Strings ab HI- 
MEM, d.h. ab der Speicherobergrenze, 
abwärts zusammengepackt. 


Der Applesoft-Interpreter führt diese G/C 
immer dann aus, wenn kein Speicherplatz 
mehr zur Verfügung steht. Durch Benut- 
zung der FRE-Funktion, die die Anzahl 
noch verbleibender freier Speicherstellen 
ermittelt, kann man diese G/C auch er- 
zwingen, etwa durch | = FRE (0). Eine 
weitere Möglichkeit besteht im direkten 
Aufruf der G/C im Applesoft-Interpreter 
durch CALL 58500 oder CALL -7036 (ent- 
spricht $E484). 


2. Die Stringvariablentabelle 


Zum Verständnis der hier vorgestellten 
Programme ist die Kenntnis der Variablen- 
verwaltung des Applesoift-Interpreters 
wichtig. Es empfiehlt sich in diesem Zu- 
sammenhang die Lektüre der Applesoft- 
Basic-Programmieranleitung, aus der hier 
noch einmal kurz zusammengefaßt wer- 
den soll. Beim Programmlauf legt der In- 
terpreter direkt hinter dem Programm die 
Variablentabelle an, wobei zuerst alle ein- 
fachen Variablen und dann alle indizierten 
oder dimensionierten (Feld-)Variablen fol- 
gen. Es dürfte bekannt sein, daß nur die 
ersten beiden Buchstaben des Varlablen- 
namens signifikant sind, d.h. XMIN und 
XMAX werden nicht unterschieden. Somit 
enthält jeder Variableneintrag zunächst 
zwei Namensbytes. Bit 7 jedes dieser bei- 
den Bytes wird zur Unterscheidung des 
Variablentyps benutzt (Integer, Real, 
String). Stringvariablen werden durch Bit 7 
= 1 = on im ersten sowie Bit 7 =0 = ofi 
im zweiten Byte gekennzeichnet. Bei den 
einfachen Variablen folgen nun noch je 5 
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MEMSIZE (115-$73) 


FRETOP (111-$6F) 


STREND (109-$6D) 


ARYTAB (107-$6B) 
VARTAB (105-$69) 


TEXTTAB (103 - $67) 


ı.a. 89600 
String- 
bereich 


freier 
Bereich 


Feld- 
variablen 


| _ 
normale 
Variablen 
Applesoft- | 
programm 


Bildschirm- 
Puffer 


Die Zahlen in Klammern geben die dezimale und hexadezimale Pointeradresse an 





Diagramm 1: Auszug aus der Speicherbelegung 


Stringzahl 


version 


ABK- 
version 


Applesoft- 
version 


Genauigkeit +/- 5% (ungeeichte Zeitbasis) 


Diagramm 2: Laufzeittabelle 


Bytes, die den Wert beinhalten. Im Falle 
von Strings werden indessen nur die er- 
sten 3 der 5 Bytes als Deskriptor genutzt. 
Feldvariablen (= dimensionierte Varia- 
blen) enthalten einige Einträge mehr. Auch 
hier erscheinen zuerst zwei Namensbytes, 
gefolgt von einer 2-Byte-Offsetadresse 
zum nächsten Feld, danach die Anzahl der 
Dimensionen (1 Byte), gefolgt von je 2 
Bytes zur Bestimmung der Größe der ein- 
zelnen Dimensionen. Im Anschluß daran 
erscheinen die Werte der einzelnen Ele- 
mente, bei Strings wieder in Form von 





1800,0 


Zeit in sec 


Deskriptoren. Eine kleine Lehre läßt sich 
aus diesen Erkenntnissen ziehen: Bei der 
Bearbeitung großer Felder erweist es sich 
als sinnvoll, alle einfachen Variablen vor 
der Dimensionierung des Feldes zu be- 
nennen, da ansonsten bei jeder neuen 
einfachen Variablen der gesamte Feld- 
block nach oben verschoben wird. 

Der Applesoft-Interpreter richtet sich für 
seine Verwaltungstätigkeit Pointer in der 
Zero-Page ein, die in Diagramm 1 veran- 
schaulicht sind. Dabei entsprechen LO- 
MEM und HIMEM den Default-Werten. 


I IBM"-Gehäuse 


ZUSATZ-KARTEN: 
V-24-Schnittstelle 199,- Z-80-Karte 
80-Zeichen-Karte m.Softswitch 236,- 16 K-Language-Karte 
Centronics-Karte von Epson für Graphik ..... 210,- für Text.... 
Eprommer incl. Software 


PN 


S Zn 
Er To 


Floppy-Controler 


FDC 4 für alle Laufwerke ...... 230,- Bausatz wie links 

Leerplatine wie oben incl. Prom u, Eprom 

Autopatch-Controler 1 x 35 bis 2 x 80 Tr,-Disk, keine Patch-Disk notwendig, 
Gemischtbetrieb möglich 298,- (auch für SONY 3%" Laufwerke) 


Joy Stick 69,- Netzteil 5A 


Halbschalen-Gehäuse für 2 Slimline-Laufwerke 
Floppy-Kabel 34pol. für 2 Laufwerke mit Shugart-Bus 


Preh Commander Keyboards wir bieten Ihnen die Preh-Quali- | 
tät auch für Apple. AK 88 spez. mit eh Anschlußkabel, Zehner-Tastenfeld, 
dt. Zeichensatz, Sondertasten für Ctrl- -Codes und Rechenfunktionen un. 339,- 


TEACFO55 A 1 x 40 Track 350,- TEACFD55B2x40 Track 
TEACFDS55E 1x 80 Track 595,- TEACFDS5SF2x 80 Track 


Patch-Diskette für SONY 3%” Laufwerke — ermöglicht die Anpassung an Il/lle und 
kompatible Computer Manual vorab 15,-DM {wird beim Kauf 
der Patch-Diskette angerechnet). dto. für 514” Laufwerke „+++... 80,- 
Disketten Döb&Böd SS/DD 10St. 62,- 10 Disketten f.Sony 3Y%" Laufw. .150,- 


SONY 3%" Laufwerk .. nur 849,- 


10 MB Winchester incl. Controler, 
Software, Gehäuse 


Akustikkoppler AK 300 mit FTZ-Nr. 
incl. Neizteil 549,- 


Die Microfloppy mit Zukunft: (o.Abb.) 
Speicherkapazität: 2 x 1 MByte for- 
matiert: 2x 640 kByte. Änschlußfertig 


Bestechende Leistung! 

AP 20: 6800 CPU mil 128K RAM DM 1459,— 

AP 20 mit Assembler und Pseudodisk DM 1595,— %s 
AP 20 mit CP/M 68K DM2268- . xr 





mit PROM-residenter Patchsoftware AR 26.8.1 Megabpte für AR 20 DM | N Y 
für CP/M 2.2, Apple DOS 3.3 und ea 0 CL UaR DM 3642,— 
in Textsystem wie im Fi t: mit C-Compiler » Diese Kombination bestı 

Apple Pascal 1.1, Pro-DOS AP 17 256K RAM als > Fortran, Pascal, Basic u.a auf Anfrage Cormsuterrukunit Nine 
zum Preis von Pseudodisk n R 16K RAM Karle DM 165,— 
BIPEEEEEEBEEEEMEENEERBEBEEEENGEEGEEGEENGEEGEREEREESEEGEGEES EEE Basic, Pascal, C/M DM 16%,- Disketten mit 807 Karle mil Sofiswitch DM 295,— 
Gesamt-Preisliste anfordern! Bitte beachten Sie auch unsere Anzeige in Nr. 2/84 | 4? 222808 Cru 6 MHz Innenlochverstärkung ss, sd N: lg 

mit64kRAM DM 8#95,- 10er Pack DM 55 zusammen nur DM 595, — 
; — Das Textprogramm er Pac Ye alle Preise incl, MWSı1 

100er Pack DM 500, - 





Ueding electronics 
Y cE Olper Str. 10 1011 Rose Marie Lane 16 
N] IKT ı3> COMrPUTertechNi$ Olpe St 


4800 Bielefeld 14 Stockton. CA 95207 
5750 Menden] Tel. 02373/63159 


Tel. 0521/444032 Tel. (209) 473-7473 
West-Germany USA 





Nutzen Sie Ihren Apple-Computer 
auch zum Lernen 


INTUS-Lernprogramme sind attraktiv und motivierend für vergnügliches 


Lernen mit hohem Lernerfolg. 
Alle Programme in Bucher Sprache für Apple Ile und Ilc. K OmpP lettsystem SUPER II 


® Maschinenschreiben wie der Blitz. Didaktisch 
ausgezeichnet. Garantiert erfolgreich in 20 Lektionen. 


® Basic-Lernprogramm. Bestes Lernprogramm 1982 
in USA. DM 295, — 


® Computer-Simulator, Mit Lehrgang in 5 Lektionen, DM 146,—— 
® Lesen wie der Blitz, Sehr wirkungsvolles Lesetrainiing, DM 115,——- 


@ Deutsche Grammatik mit Spaß. Für Sekretärinnen, Schüler und 
“Jedermann”. Beste Beurteilungen durch Verwender. 
® Rechtschreibetraining mit Vortest/Nachtest, 
5 Bereiche, 4 Disk. 
® Zeichensetzung, Wortrten, Verb, Zeitenfolge, 
Adjektive/Adverbien, Fälle, Satzglieder, 
7 Disk. (weitere folgen) 


@ \Wortschatztrainer, Franz./Deutsch, 800 Wörter 
Englisch/Deutsch, 800 Wörter 
Business English, 1200 Wörter 


@ Unternehmens-Planspiel “Kartellbrüder und 
Halsabschneider”. Professionelles, lehrreiches 
Strategiespiel. Vorkenntnisse notwendig. 
Umfangreiche Dok. _ DM 495, — 
@ Schulprogramme wie Rechnen/Mathe, Sprachen, Physik, Chemie, 
Informatik, Vorschule. Bestens für die Nachhilfe geeignet. 
Vermietung von Programmen. 


cvb computer 


Repsoldstraße 49. 2000 Hamburg! Tel 0O40-230685 


+ 48 KB Mikrocomputer, Kleinschreibung, deutsche Tastatur, 
zZehnerblock, Auto-Repeat, APPLE kompatibel, 8 Slots 

+ 16 KB Erweiterung auf 64 KB Hauptspeicher (Sprachkarte), 
PASCAL-, VISICALC- und CP/M-kompatibel, busgepuffert 

+ 5.25"-Diskettenlaufwerk TEAC FD 55-A, voll kompatibel 
zu APPLE-Laufwerken, 143 KB, mit Controller-Karte 

+ 12"-Datenmonitor SANYO DM 2112 CX, grüner Bildschirm, 
15 MHz Auflösung, geätzte Bildröhre 


DM 2450.00 


DM 188,— 


anschlußfertig 
je Disk, DM 165,— 


+ TEAC 5.25"-Laufwerk FD 55-A 

+ 2 80-Mikroprozessorkarte 

+ 80 Zeichen-Superkarte VIDEX 
kompatibel, deutscher und 
ASCII-Zeichensatz, Grafik, 
Softswitches, busgepuffert 


DM 1100.00 
SPEEDY 100 


DERCSSZE 


Doppellaufwerk 2x 640 KB 
mit Gehäuse, Controller, 
Kabel und Software, 

anschlußfertig für Äpfel 


DM 2198.00 
JUKI 6100 


je Disk. DM 165,—— 


DM 140,— 
DM 140,— 
DM 163, — 


A%k%% Mit Ihrer ersten Bestellung erhalten Sie gratis das Programm 
“Mein Freund der Apple” mit interessanten Denk-Strategie- 
und Entspannungsspielen. 


AN 
INTUS LERN-SVSTEME AG 


Kaiserstraße 21 - /890 Waldshut-Tiengen - Telefon 0 7751-7920 


80 cps Matrixdrucker Ad, 
Einzelblatt und Traktor, 
Grafik, EPSON-kompatibel 
Centronics Parallel 


DM 799.00 


Profi-Typenraddrucker A4 
guer, 22 cps, 2K Puffer, 
WordStar kompatibel, 
Centronics Parallel 


DM 1699.00 


Apple - NCR-Epson: JUKI-Speedy:C.ltoh- NEC -Olympia Sanyo 
Taxan Teac -Verbatim -Scotch 3M- M+T-Zubehör-Bücher 
Barpreise incl. Mehrwertsteuer: volle Garantie 
Abholung oder Versand:Infoheft anfordern 
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3. Die Interpreter-Garbage- 
Collection 


Zum Verständnis der im Applesoft-Inter- 
preter eingebauten G/C-Routine bedarf es 
einiger Erläuterungen. Die Block-Transfer- 
Utility ist eine universelle Blockverschie- 
beroutine, die immer dann aufgerufen 
wird, wenn ein bestimmter Speicherbe- 
reich (LOWTR-HIGHTR) verschoben wer- 
den muß. Dabei wird das Ende des Zielbe- 
reichs (HIGHDS) als Parameter überge- 
ben. Diese Routine ist nicht geeignet für 
Verschiebungen nach unten mit Über- 
schneidungen von Ziel- und Quellbereich. 
Der Deskriptorenstack ist ein kurzer Spei- 
cherbereich in der Zero-Page (9 Bytes), in 
dem bei verschiedenen Stringoperatio- 
nen, wie z.B. LEFT$, und Stringkonkate- 
nationen (Siringverkettungen, z.B. A$ + 
B$) Deskriptoren vorübergehend abgelegt 
werden. Da die G/C zu jeder Zeit aufgeru- 
fen werden kann, müssen auch diese Zei- 
chenketten mit berücksichtigt werden. 

Bei dem hier angewandten Algorithmus 
wird in einer großen Schleife bei jedem 
Durchgang der bisher noch nicht berück- 
sichtigte String mit der höchsten Adresse 
ermittelt, und dann unter die bereits bear- 
beiteten Zeichenketten geschrieben. So- 
mit werden alle Strings, von oben nach 
unten, neu abgelegt und die entsprechen- 
den Deskriptoren in der Variablenliste ak- 
tualisiert. Bei der Suche nach dem höch- 
sten String, dem Top-String, wird folgen- 
dermaßen verfahren: Zunächst befinden 
sich alle potentiellen Top-Strings zwi- 
schen STREND und FRETOP, d.h. zwi- 
schen der unteren Grenze des zur Verfü- 
gung stehenden Stringbereichs und dem 
zuletzt aktualisierten Top-String. Bei der 
Durchforstung aller Variablen, wobei die 
numerischen Variablen natürlich ignoriert 
werden, rückt die Untergrenze dieses Be- 
reichs durch den zuletzt gefundenen Top- 
String immer weiter nach oben. Dabei fun- 
giert LOWTR als Untergrenze, TOPSTR 
als Zeiger auf den letzthöchsten Eintrag 
und INDEX als Laufvariable innerhalb der 
Variablenliste. Am Ende aller Variablen 
steht somit der höchste String fest und 
kann übernommen werden. Dies wird so- 


lange wiederholt, bis kein Top-String mehr 


gefunden wird und somit alle Strings ver- 
schoben sind. Die Variable TOPSTR wird 
dabei am Schleifenkopf als Flag auf Null 
gesetzt; wurde kein Top-String mehr an- 
getroffen, so bleibt sie als Abruchkriterium 
zurückgesetzt. 


Das besondere Merkmal dieses Pro- 
gramms ist der Verzicht auf die Benutzung 
weiterer Speicherplätze. Einerseits ist der 
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APPLESOFT.FRE 


EA84: 
E486: 
E488: 
BABA: 
E4A48C: 
EA8E: 
E490: 
E492: 
EB494: 
BE496: 


E498: 
BAYA: 
E49C: 
BASE: 
BAAO: 
EAA2: 
BAAA: 
BAAT: 


EAA9: 
E4AB: 
EAAD: 
E4AF: 
BABl: 
BAB3: 
EABS: 
E4B7: 
BAB9: 
EABB: 
E4BD: 
EACO: 


E4C2: 
BACA: 
BAC6: 
E4C08: 
BACA: 
BAtc: 
EACE: 
E4DO: 
B4D2: 
E4AD4A: 
E4D6: 
E4D9: 
BADB: 
E4ADD: 
E4DF: 
B4El: 
E4R2: 


07 
8F 
69 


5E 
5F 
SC 


6B 
05 
19 
F3 


94 
95 
03 
8r 
94 
95 
6E 
Br: 
6D 
03 
62 
oE 
or 
00 
DE 


ES 


ES 


ES 


za x »+ %* 


TEMPPT 
DSCSTK 
INDEX 
VARTAB 
ARYTAB 
STREND 
FRETOP 
MEMSIZE 
TOPSTR 
VARLEN 
LSTLEN 
ARYPNT 


HIGHDS 
HIGHTR 
LOWTR 


BLTRUL1 


* Beim Aufruf 


GARBAG 


GBLOOP 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 


EQU 


ORG 


LDX 
LDA 
STX 
STA 
LDY 
STY 
LDA 
LDX 
STA 
STX 





GARBAGE-COLLECTION-Routine im Applesoft-Interpreter «* 


$E484-$E596 . 

De {| 
552 ;:Pointer für Deskriptorenstack 
$55 ;Deskriptorenstack (3 * 3 Bytes) 
$5E ;Suchpointer 
$69 ‚Start der Variablen = LOMEM 
$6B :Start der Feldvariablen 
$6D ;Ende der numerischen Variablen 
$6F :Ende der Stringvariablen 
$73 ;= HIMEM 
$8A :Pointer zum letzten Stringdeskr, 
$8F ;Anzahl von Variablenbytes 
$91 ‚Zwischenspeicher für VARLEN 
594 :Pointer innerhalb der Feldv. 

:Parameter für Block-Transfer 

$94 ;Zielbereich, Ende 
$96 ;Quellbereich, Ende 
$9B ;Quellbereich, Start 
$D39A :Block-Transfer-Utility (Entry) 
$E484 


von GARBAG muß VARLEN auf 3 gesetzt sein 


MEMSIZE ‘bei HIMEM beginnen 
MEMSIZE+1 

FRETOP ;FRETOP aktualisieren 
FRETOP+L1 

#50 ;Variablenindex 

TOPSTR+1 :0 als Flag 

STREND ;maximal kleinste Adresse 
STREND+1 ; für Stringvariable 
LOWTR ‚ als zuletzt geänderten 
LOWTR+1 ‚ String eintragen 


* Deskriptorenstack bearbeiten 


LDA 
LDX 
STA 
STX 


DESCSTCK CMP 


BEQ 
JSR 
BEQ 


#+<DSCSTK ;Deskriptorstack mit- 
#>DSCSTK : berücksichtigen 

INDEX ;Suchpointer auf ersten 
INDEX+1 ;‚ Stringdeskriptor 

TEMPPT ‚Deskriptorstack beendet ? 
NORVAR ; ja, dann weiter 

SETTOP1 ;prüfen, ob neuer Top-String 
DESCSTCK ‚unbedingt 


x Normale Variablen bearbeiten 


NORVAR 


NORVARL 


NORVAR2 


LDA 
STA 
LDA 
LDX 
STA 
STX 
CPX 
BNE 
CMP 
BEQ 
JSR 
BEQ 


#7 ;7 Bytes pro Variableneintrag 
VARLEN ; in Var.-Referenzliste 
VARTAB ;Suchpointer auf erste 
VARTAB+1 ; normale Variable 

INDEX 

INDEX+1 

ARYTAB+1 ;‚Feldvariablen erreicht ? 
NORVARZ ; nein, dann weiter 

ARYTAB ; LSB prüfen 

ARYVAR ; ja, dann zu den Feldvariablen 
SETTOP ;prüfen, ob neuer Top-String 
NORVAR1 ‚unbedingt 


* Feldvariablen bearbeiten 


ARYVAR 


ARYLOOP 


ARYLOOPL1 


ARYVAR1 


STA 
STX 
LDA 
STA 
LDA 
LDX 
CPX 
BNE 
CMP 
BNE 
JMP 
STA 
ST 
LDY 
LDA 
TAX 
INY 


ARYFNT ;Feldpointer auf 
ARYPNT+1 ‚ erstes Feld 
#3 ;3 Bytes pro Eintag in der 


VARLEN ; Feldvariablenreferenzliste 
ARYPNT 
ARYPNT+L 
STREND+I ‚Letztes Feld erreicht ? 
ARYVAR1 ; nein, dann weiter 
STREND ; LSB prüfen 
ARYVARL ; nein, dann weiter 
MVESTR ; ja, dann Top-St. eintragen 
INDEX ;:Index auf erstes 
INDEX+1 : Feldelement 
+50 ;Feldindex 
(INDEX),Y ;1. Feldnamenbyte 
> X 


Algorithmus relativ unkompliziert, was sich 
in der kurzen Code-Länge widerspiegelt. 
Andererseits ist die Laufzeit sehr beträcht- 
lich, zumal sie in Abhängigkeit von der 
Anzahl der Stringvariablen etwa quadra- 
tisch steigt, da zur Bearbeitung von n Va- 
riablen n-mal alle n Strings untersucht 
werden müssen. Es ist somit nicht ver- 
wunderlich, wenn sich der Apple bei Bear- 
beitung von großen Stringfeldern in minu- 
tenlanges Schweigen hüllt, was beson- 
ders bei interaktiven Programmen ein mitt- 
leres Ärgernis darstellt. 


4. Die neue Garbage-Collection: 
LC.FRE und RAM.FRE 


All denen, die auf eine schnelle Garbage- 
Collection Wert legen, ist das nun folgen- 
de Programm LC.FRE gewidmet. Das 
neue Diskettenbetriebssystem ProDOS 
bzw. genauer gesagt das Modul BASIC- 
‚SYSTEM ist in der Lage, Variablen abzu- 
speichern. Um die Diskette nicht mit unöti- 
gen Stringleichen zu füllen, wird vor Ab- 
speicherung von Stringvariablen eine G/C 
durchgeführt. Sehr wohl um die Problema- 
tik der Applesoft-G/C wissend, haben die 
Programmierer von ProDOS eine eigene 
Routine implementiert, die bedeutend 
schneller läuft. Die Geschwindigkeitserhö- 
hung wurde durch die Einrichtung eines 
Puffers erreicht, der den gesamten freien 
Bereich zwischen Variablen und Strings 
umspannt. Stehen dort weniger als 4 Sei- 
ten zur Verfügung, so wird auf die PRO- 
DOS-I/O-Puffer zurückgegriffen. 

Dieses Programm läßt sich nun mit einigen 
Modifikationen auch unter dem alten DOS 
ausnutzen. Um den freien Speicherplatz 
nicht zu belasten, residiert das Programm 
in der Language-Card Bank 1 (die von 
einem ggf. in die LC gemovten DOS 3.3 
belegte Bank 2 bleibt unberührt). Der Puf- 
fer wird, um Schwierigkeiten mit eventuell 
geöffneten Files und den HGR-Puffern zu 
vermeiden, ebenfalls in die Bank 1 verlegt, 
was auch einen beim PRODOS-FRE-Be- 
fehl möglicherweise auftretenden Fehler 
(OUT OF MEMORY) vermeidet, zumal 14 
Seiten Buffer (ca. 3,5K) bei einer großen 
Anzahl von Strings auch nicht mehr im 
freien Bereich vorhanden wären. (Das BA- 
SIC.SYSTEM bricht exakt dann zusam- 
men, wenn der momentan stringfreie 
Speicherraum beim Eröffnen eines Text- 
files weniger als 1280 Bytes, d.h. weniger 
als 5 Pages, beträgt, so daß HIMEM theo- 
retisch sicherheitshalber stets bei $9100 
liegen müßte. Anm. d. Red.) 


Der Programmablauf sieht etwa folgender- 
maßen aus: Zunächst wird der obere Be- 


E4R3: 
E4EB: 
E4E6: 
EAERT: 
EAB9: 
E4EB: 
E4ED: 
E4EE: 
E4PO: 
E4F?2: 
E4AF4: 
HAFS: 
EAFT: 
E4FB8: 
EAFA: 
EAFB: 
E4AFD: 
E4AFF: 
E500: 
E502: 
E504: 
ESO6:! 
E508: 
E5SOA: 
E5OC: 
ESOE: 
EB1l0: 
E5S12: 
ES]4: 
E5lT: 


E519: 
E5lB: 
E5S1D: 
E5lE: 
ES20O: 
ES2R: 
E523: 
E525: 
E527: 
E528: 
ESZA: 
ES2B: 
Es2G: 
ESZE: 
Ebs0- 
E552: 
ESS4: 
E536: 
Ehnaa. 
ED3A:! 
E5SC: 
ESS3E: 
E540: 


E542: 
E544: 
E546: 
E548: 
ESAA: 
E54a6c: 
ES4E: 
ESSO: 
ESBR: 
ES54: 
E555: 
Essr: 
E559: 
ES5B: 
ES5D: 
EöS5F: 
Es6l: 


ES62: 
E564: 
E566: 
E568: 
ES6A: 
ESEB: 
ESeb: 


Bl 
30 
08 
Bl 
10 
18 
Bl 
FO 
c8 
Bl 
AA 


Bl 
C5 
90 
DO 
E4 
BO 
C5 
90 
DO 
EA 
90 


A6 
FO 
Aö 
23 
Ar 
A8 
85 


5E 


SE 
94 
94 


°E 
95 
D3 
DO 
oE 
05 
5E 
5E 
02 
SF 
5F 
04 
94 
BA 


F3 


5E 
35 


>E 
30 


8B 
Fr 
31 
04 


31 


ES 


113 
114 
115 
Lie 
ET 
18 
119 
120 
121 
122 
123 
124 
125 
126 
1 
128 
129 
130 
151 
132 
133 
134 
135 
136 
157 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
lel 
162 
163 
164 
155 
166 
167 
168 
169 
170 
Il 
172 


ey UTILITIES ‚rn 


LDA 
EHE 
INY 
LDA 
ADC 
STA 
INY 
LDA 
ADC 
STA 
PLP 
BPL 
TXA 
BMI 
INY 
LDA 
LDY 
ASL 
ADC 
ADC 
STA 
BCC 
INC 
LDX 
CPX 
BNE 
CMP 
BEQ 
ARYLOP21 JSR 

BEQ 


ARYVAR2 
ARYLOP2 


* Prüfen, ob 


LDA 
BMI 
INY 
LDA 
BPL 
INY 
LDA 
BEQ 
INY 
LDA 
TAX 
INY 
LDA 
CMP 
BCC 
BNE 
CPX 
BCS 
CMP 
BCE 
BNE 
CPX 
BCO 


SETTOP 


SETTOP1 


SETTOP2Z 


* als Top-String eintragen; 


TOPFND STX 
STA 
LDA 
LDX 
STA 
STK 
LDA 
STA 
LDA 
CLC 
ADC 
STA 
BCC 
INC 
LDX 
LDY 
RTS 


NXTVAR 


NXTVAR]1 


* Top-String 


LDX 
BEQ 
LDA 
AND 
L5R 
TAY 
STA 


MVESTR 


(INDEX),Y 


(INDEX),Y 
ARYPNT 
ARYPNT 


(INDEX),Y 
ARYPNT+1 
ARYPNT+1 


ARYLOOP 
ARYLOOP 


(INDEX},Y 
+#$0 


#5 

INDEX 
INDEX 
ARYVAR2 
INDEX+1 
INDEX+1 
ARYPNT+1 
ARYLOP2] 
ARYPNT 
ARYLOOPL 
SETTOPL 
ARYLOP2 


:2., Feldnamenbyte 
;Minusflag retten 


;‚OffsetLSB zum nächsten Feld 
;Feldpointer auf nächstes 

; Feld setzen 

‚OffsetMSB zum nächsten Feld 
;Minusflag holen 

;Bit7 = DO, d«h,. kein String 
;Bit7 = 1, d.h, kein String 


Anzahl von Dimensionen 


;2 Bytes pro Dimension 
; + 5 Bytes überspringen 


‘LSB -> Ä 


ıMSB -> X 
ıEnde des Feldes erreicht ? 
; nein, dann weiter 


; ja, dann nächstes Feld 
‚prüfen, ob neuer Top-String 
;unbedingt 


neuer Top-String vorliegt 


(INDEX) ,Y 
NXTVAR 


(INDEX) ,Y 
NXTVAR 


(INDEX), Y 
NXTVAR 


(INDEX) ‚Y 


(INDEX) ,‚Y 
FRETOP+1 
SETTOP2 
NXTVAR 
FRETOP 
NXTVAR 
LOWTR+1 
NXTVAR 
TOPFND 
LOWTR 
NXTVAR 


LOWTR 
LOWTR+1 
INDEX 
INDEX+1 
TOPSTR 
TOPSTR+Hl 
VARLEN 
LSTLEN 
VARLEN 


INDEX 
INDEX 
NXTVAR1 
INDEX+1 
INDEX+1 
+$0 


verschieben, 
TOPSTR+ 


NXTVAR1 
LSTLEN 


#%200000100 ; 


LSTLEN 


;1. Namensbyte 
;Bit7 = 1, d.h. kein String 


;:2, Namensbyte 
;Bit7 = 0, d.h. kein String 


‚Stringlänge 
;wenn OÖ, dann übergehen 


‚Stringadresse LSB -> X 


‚Stringadresse MSB -> A 
‚größer als FRETOP ? 

‚ nein, dann weiter 

; ja, dann bereits erledigt 
LSB prüfen 

‚größer, d.h. erledigt 
‚erößer als letzter String ? 
‚ nein, dann übergehen 

; ja, dann Top-String 

;LSB überprüfen 
;kleiner, d.h, erledigt 

INDEX auf nächste Variable 
;neue Stringadresse eintragen 


‚und derzeitigen 
; Stringpointer als neuen 
; Top-String eintragen 


;‚Variablenlänge retten 


;Suchpointer auf nächste 
: Variable setzen 


;LSB -> A 


:MSB -> X 
‚Variablenindex 


falls gefunden 


;0 ?, d.h, kein Top-String 

: gefunden -> ENDE 
;‚Variablenlänge des T.-Strings 
aus 7 wird 2 

;‚ aus 3 wird OÖ 

‚als Index 

‚merken 


3/ 





reich der Strings in den Pufier übertragen, 
und dann werden alle Variablen, die in 
diesem Puffer liegen, nach oben verscho- 
ben, wobei die Reihenfolge hierbei keine 
Rolle spielt, da auschließlich gepuiferte 
Strings überschrieben werden. Im An- 
schluß daran wird der nächste Teil der 
Strings gepuffert und analog verfahren, bis 
auf diese Weise alle String bearbeitet wur- 
den. Eine Verfeinerung dieses Verfahrens 
ergibt sich durch die Ausnutzung der 
durch die G/C bereits gewonnenen Sei- 
ten, die nicht gepuffert werden müssen 
und dennoch im gleichen Zug verarbeitet 
werden können. Dies führt zur Unterschei- 
dung eines gepufferten Bereichs, der bis 
auf den letzten Durchgang stets die glei- 
che Länge besitzt, und eines Savebe- 
reichs, der durch den Speicherplatzgewinn 
immer größer wird. Der Algorithmus gilt als 
beendet, wenn der Savebereich die Unter- 
grenze des alten FRETOP-Wertes erreicht 
hat. 


Dem Programm ist ein Initialisierungteil 
und eine Treiberroutine vorangestellt, um 
es direkt von der Diskette BRUNen zu 
können, ohne selbst Umschaltungen vor- 
nehmen zu müssen. Die Treiberroutine, 
die in die Page 3 ab $0300 (dezimal 768) 
verschoben wird, enthält noch eine kleine 
Zusatzoption. In der Speicherstelle FREe- 
PaGES ($00E3 = dezimal 227) kann die 
Anzahl der gewünschten freien Seiten im 
Bereich 1-255 übergeben werden. Sind 
diese vor der G/C noch vorhanden, so wird 
sie nicht ausgeführt. Auf die Benutzung 
des Ampersandvektors wurde zugunsten 
anderer Erweiterungen verzichtet, der Pro- 
grammaufruf lautet somit CALL 768: 


Die Garbage-Collection wird erzwungen 
mit: 

POKE 227, 255 

CALL 768 


Dagegen erfolgt die Garbage-Collection 
nach z.B. 

POKE 227, 3 

CALL 768 

nur dann, wenn z.Zt. des Aufrufs weniger 
als 3 Pages = weniger als 768 Bytes im 
Stringpool frei sind. 


Eine Besonderheit des Programms ist die 
ausschließliche Bearbeitung von ganzen 
Seiten. Dies führt zwar am Start und am 
Ende zu kleineren Redundanzen, erspart 
jedoch die ständige Überprüfung des Low 
Bytes, was eine Erhöhung der Geschwin- 
digkeit und zugleich ein kürzeres Pro- 
gramm bedingt. 
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E5S6E: Bl 
E570: 65 
EST2: 85 
E5S74: A5 
E576: 69 
ES78: 85 
ESTA: A5 
E5S7C: A6 
E5b7E: 85 
E580: 86 
E582: 20 
E5S85: A4 
E57: C8 
ES88: A5 
E5S8A: 91 
E58C: AA 
E5S8D: E6 
E5S8F: A5 
E5S91: C8 
E5S92: 91 
E594: AG 


275 bytes 


LC.FRE 


9000: 2C 
9003: 2C 
9006: A9 
9008: 85 
900: AY 
900C: 85 
900E: A9 
9010: 85 
9012: AO 
9014: 84 
9016: A2 
9018: 20 
901lB: 2C 
SOlE: A9 
9020: 85 
9022: AO 
9024: BY 
9027: 39 
S902A: 88 
902B: 10 
902D: 60 


95 
95 


8A 
88 


DS 


E4 


co 
co 


9 
co 


90 
03 


173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 


vo DH 


EEE kk ra m 


* 


a) 


LDA (TOPSTR),Y ;Länge des Top-Strings 


ADC LOWTR ; zum Quellbereichsstart 
STA HIGHTR ‚ ergibt 

LDA LOWTR+I ; Quellbereichsende 

ADC #$0 

STA HIGHTR+1 

LDA FRETOP ;:FRETOP = Zielbereichsende 
LDX FRETOP+1 

STA HIGHDS 

STX HIGHDS+1 

JSR BLTRUl ‚String verschieben 

LDY LSTLEN ‚Index wieder herstellen 
INY ‚neue Adresse in 

LDA HIGHDS ; Variable (Deskriptor) 
STA (TOPSTR),Y ; eintragen 

TAX ;FRETOP LSB -> X 

ING HIGHDS+1 ‚wegen BLTU 


LDA HIGHDS+H ;FRETOP MSB -> A 


INY 
STA (TOPSTR),Y 
JMP GBLOOFP ‚Nächsten Top-String suchen 


= 


ProDOS-FRE-Routine 
modifiziert für Applesoft unter DOS 3.3 
mit Language-Karte 


„»r#t%% 


m m nn 


Initialisieren mit BRUN LC.FRE 


* b) FRE-Befehl aufrufen nit: 


**+ %* 


* 
SOURCE 
DEST 
INDEX 
VARTAB 
ARYTAB 
STREND 
FRETOP 


POKE 227, F wobei F für freie Pages steht 
(bei POKE 227, 255 erfolgt stets G/C) 


CALL 768 
EQU $3A ;Quellbereich beim Blocktransfer 
EQU $3C ;Zielbereich beim Blocktransfer 
EQU $3E ;Laufvariable ,, Deskriptorenpointer 
EQU $69 :Start der Variablen 
EQU $6B ;:Start der Feldvariablen 
EQU $6D ;Ende der Variablen 
EQU $6F ;Start des Stringbereichs 
MEMSIZE EQU $73 ‚<-> HIMEM 
Initialisierung . 


PAGES 
MVEBLK 


MVEDRVE LDA 


ORG $9000 
FREPGES EQU $53 ;‚dezimal 227: POKE 227, FREFGES 
EQU $300 
EQU $917C 
BIT $C089 ;RAM—Karte schreiben 
BIT $C089 ‚ Bank 1 
LDA #>FREIMGE ;Parameter für 
STA SOURCE+L ; Block-Transfer setzen 
LDA #<FREIMGE 
STA SOURCE 
LDA #+>$D000 
STA DEST+1 
LDY #0 
STY DEST 
LDX #2 ‚2 Blöcke 
JSR MNVEBLK ;BLTR-Entry im Fre-Image 
BIT $C08A :Bankl Schreibschutz 
LDA #255 :G/C immer ausführen 
STA FREPGES ;‚ da stets weniger als 255 Seiten 
LDY #DRVEND-DRIVER 
DRIVER, Y ;‚Treiber-Routine 
STA PAGES,Y ‚ in Seite 3 übertragen 
DEY 
BPL MVEDRVE 
RTS 
Treiber-Routine . 


Für Applebenutzer, die über keine Lan- 
guage Card verfügen, ist am Ende dieses 
Artikels der Hexdump einer nochmals 
überarbeiteten Version namens RAM.FRE 
angefügt, die als Puffer ausschließlich den 
Eingabepuffer ab $0200 benutzt und unter- 
halb der DOS-Puffer residiert. Sie wurde 
zugunsten des Speicherplatzes einiger In- 
telligenz beraubt, zeigt jedoch gegenüber 
der Original-G/C erheblich kürzere Lauf- 
zeiten. Ein ausführliches Listing würde den 
Rahmen dieses Artikels sprengen, mit der 
LC-Version müßte die gekürzte Fassung 
jedoch verständlich werden. (Der Quell- 
Code von RAM.FRE befindet sich auf der 
Peeker-Sammeldiskette.) Auch RAM.FRE 
kann direkt von der Diskette gestartet wer- 
den und wird über die Treiberroutine in der 
Page 3 mit CALL 768 aufgerufen. Nach 
BRUN RAM.FRE wird HIMEM automatisch 
auf $94ED gesetzt, denn RAM.FRE belegt 
den Bereich $94ED-$95FF. 


5. Zeitvergleiche 


Zur Messung der Laufzeiten der einzelnen 
Routinen entstand das kleine Applesoft- 
Testprogramm namens FRE.TEST, das 
nichts anderes tut als eine Menge String- 
müll zu erzeugen. Dies geschieht einfach 
dadurch, daß jedem Feldelement zweimal 
eine Zeichenkette (hier nur 1 Zeichen) 
zugeoranet wird. Der Applesoft-Interpre- 
ter legt selbst bei gleicher Länge und glei- 
chem Inhalt stets einen neuen String an. 
Die Zuordnung A$(l) = „A“ wäre sinnlos, 
da in diesem Fall der Deskriptor auf die 
Stelle im Programm selbst verweisen wür- 
de, statt auf einen neu angelegten String. 


Das Programm gibt vor der Dimensionie- 
rung, nach der Zuweisung der Strings und 
nach der G/C jeweils die Anzahl der durch 
Strings belegten und der noch freien Spei- 
cherplätze an. Vor und nach der G/C er- 
folgt ein Piepston, um die Zeit stoppen zu 
können. Es empfiehlt sich, das Programm 
selbst einmal mit verschiedenen Mengen 
an Strings zu testen und das Verhältnis der 
Speicherbereiche zu beobachten. Bei der 
Benutzung der Original-G/C-Routine ist in 
der Zeile mit dem CALL 768 statt dessen | 
= FRE(0) einzusetzen. 


Das Diagramm 2 gibt die Laufzeiten der 
einzelnen Programme bei verschiedenen 
Stringzahlen an. Ein Kommentar hierzu 
erübrigt sich. Die Ungenauigkeit rührt da- 
her, daß nur ein frei schwingender Oszilla- 
tor als Zeitbasis zur Verfügung stand. 


902E: 
902F: 
9031: 
9033: 
9035: 
90357: 
9039: 
903B: 
903E: 
9041: 
9044: 
9047: 


DO00: 
D002: 
D005: 
D007: 
DOOA: 
DOOG: 
DOOF: 
DEE]. 
DOlsS: 
DO15: 
DO18: 
DO1A: 
DOIlD: 
DOIF: 
DO21: 
DO22: 
DO24A: 
DO25: 
DO27: 
DO29: 
DORB: 
DORE: 
DO30: 


DO33: 
DO34: 
DO36: 
DO38: 
DOSA: 
DOSC: 
DOSE: 
DO40: 
DO42: 
DO45: 
DO48: 
DOAB: 
DOAD: 
DO50: 
DO53: 
DO55: 
DO58: 
DOSB: 
DOSD: 
DOSF: 
DO82: 
DO64: 
D067: 
DOSA: 
DOSE: 
DO6F: 
D0O71: 
DO74: 
DOTT: 
DO79: 
BorG: 
DOTF: 
D082: 
D085: 
D087: 


DO88: 


38 
Ad 
ES 
AS 
E5 
C5 
BO 
2C 
ec 
20 
2C 
60 


18 


co 
Co 
DO 


Dl 


Dl 


Dl 


Dl 


Di 


D1 


Dl 


D1 
Dl 
DI 


Dl 


Dl 


Dl 


Dl 


Di 
D1 


Dl 


Dl 
D1 


DO 
DO 
Dl 
Dl 


104 
105 
106 
107 
108 
109 
110 
111 
I12 
113 
114 
115 
116 
DT 
118 
1193 
120 
12] 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 





DRIVER SEC 
LDA FRETOP ;FRETOP - STREND = 
SEC STREND ; Anzahl freier Seiten 
LDA FRETOP+1 
SBC STREND+l 
CMP  FREPGES ‚größer wie FREePaGES ? 
BCS DRVEND ; Ja, dann fertig 
BIT $C08B ;RAM-Karte lesen 
BIT $C08B Ä schreiben 
JSR FRE ;:G/C aufrufen 
BIT $C08A ;ROM lesen, RAM Schreibschutz 
DRVYEND RTS 
” modifizierte ProDOS-Routine ” 
En in mn un nn nn nn nn mm m nam nn a [5 
FREIMGE ORG * 
ORG $DO000 ;RAN-Karte Bankl 
* 
* Speicherverteilung: $D000-$DIFF: Programm 
- $D200-$DFFF: Puffer 
% 
FRE LDA #13 ‚14 verbleibende Seiten in Bankl 
STA PAGES ;‚ für Puffer einrichten 
LDA #>$D200 ;Puffer auf nächste Seite nach 
STA BUFFER ; Fre-Routine setzen 
LDA FRETOP+1 
STA OLDTOP ‚alten Stringanfang retten 
LDA MENSIZEHl ;passen alle Strings in den 
SBC FRETOP+1 ; Puffer ? 
ADC #1 (Seitenzahl aufrunden) 
CMP PAGES 
BCS NOALL ;‚ ja, dann den Puffer ent- 
STA PAGES ; sprechend verkleinern 
NOALL LDA MEMSIZE ‚Stringanfang auf HIMEM 
STA FRETOP ‚somit von neuem auffüllen 
CLC ‚; = 0 wenn Seitenanfang 
BEQ GOODPGE 
SEC ; C= 1 wenn mitten in Seite 
GOODPGE LDA MEMSIZEH 
STA FRETOP+I G=1 e=0 
SBC +#$00 See een 
STA SVESTRT HIMEM HIMEN-1 
ADC #$00 | 
STA SAVEND HIMEM+1 HIMEM 
LOOP SEC 
LDA VARTAB ‚Laufvariable auf Variablen- 
SBC #7 ‚ start setzen und 7 Bytes 
STA INDEX ; Offset abziehen 
LDA VARTAB+L : 
SBC #$00 ; wird später 
STA INDEX+L ; wieder hinzuaddiert |! 
LDA ARYTAB ‚Feldindex setzen 
STA ARYINDX 
LDA SVESTRT ;Untergrenze des alten String- 
CMP OLDTOP ; bereiches erreicht ? 
BCC RETURN ; Ja, dann fertig 
SEC PAGES ;Pufferbereich um Anzahl Puffer- 
STA BUFSTRT ; seiten tiefer setzen 
LDA FRETOP+1 ‚kann um die durch die G/C gewon- 
SBC SVESTRT ‚ nenen Seiten verringert werden 
SBC BUFSTRT ; (erfolgt durch Betragsbildung 
EOR #$FF ; mittels Zweierkomplement) 
ADC #$02 ;aufrunden 
CMP _ BUFSTRT ‚neuer BUFstart unterschritten ? 
BCC SETBUF ; Ja, dann weiter 
LDA BUFSTRT ; nein, dann wieder abrunden 
SETBUF CMP OLDTOP ‚letzter Durchgang ? 
BCS SETSAV ; nein, dann weiter 
LDA OLDTOP ; ja, dann Savebereich 
SBC #$00 ; korrigieren (abgerundet) 
SETSAV STA SVESTRT 
JSR BLTR ‚Savebereich puffern 
LDX ARYTAB+H 
JSR NORVAR ‚einfache Variablen bearbeiten 
JSR ARYVAR ;‚Feldvariablen bearbeiten 
LDA SVESTRT ‚alter Save-Start = 
STA SAVEND ; neues Save-Ende 
BNE LOOP ‚nächsten Block (unbedingt) 
RETURN RTS ; ENDE 


* Einfach Variablen bearbeiten 


NORVAR  CLC 
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LC,FRE 


$9000: 
89008: 
69010: 
89018: 
$9020: 
$9028: 
$90530: 
59038: 
89040: 
59048: 
$9050: 
69058: 
59060: 
89068: 
59070: 
$9078: 
59080: 
$9088: 
89090: 
69098: 
$90A0: 
SI0AB: 
$90B0: 
$90B8: 
9000: 
59008: 
$90D0: 
$90D8: 
$90E0O: 
$90E8: 
$90F0: 
$90F8: 
$9100: 
$9108: 
$9110: 
$9118: 
$9120: 
69128: 
$9130: 
69138: 
$9140: 
$9148: 
$9150: 
$9158: 
$9160: 
99168: 
$9170: 
$9178: 
$9180: 
$9188: 
59190: 
59198: 
$91A0: 
$91AB: 
$91B0: 
$91B8: 
$91C0: 


RAM.FRE 


89 
3B 
SD 
TC 
E3 
03 
E5 
BO 
20 
OD 
Dl 
Eö 
03 
18 
E9 





BSAVE RAM. 


FRE, A$94C0, 
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$94C0: 
$94C8: 
$94AD0: 
$94D8: 
$9AEO: 
$94AEB: 
$94F0: 
$94F8: 
$9500: 
89508; 
$9510: 
$9518: 
$9520: 
59528: 
$9530: 
49538: 
59540: 
69548: 
$9550: 


#0 
88 
94 
73 
6D 
03 


10 


co 
49 
AO 
al 
AO 
88 
6D 
06 
00 
8D 
A5 
70 
8D 
FO 
00 
Dl 
A5 
8D 
Dl 
Dl 
Dl 
90 
BO 
TC 
88 
8D 
3E 
SF 
EC 
10 
Bl 
TD 
CD 
Bl 
T7D 
A9 
E6 
SF 
Dl 
04 
3E 
3E 
c8 
3E 
90 
D1 
AO 
Dl 
FO 
60 
D1 
Bl 
Fl 
70 
88 
Bl 
00 


B3 
RT 
ED 
6F 
70 
ED 
AS 
A5 
95 
A5 
8D 


BSAVE LC.FRE, A$9000, 


2C 
48 
00 
2c 
19 
10 
Ad 
26 
DO 
TB 
70 
69 
TB 
01 
8D 
38 
SA 
TF 
90 
&5 
49 
03 


DC 
49 
85 
60 


89 
85 
34 
BA 
B9 


co 
3A 
3C 
co 
2E 
60 
ES 
co 
8A 
a9 
80 
CD 
A5 
AS 
Di 
69 
00 
AD 
ED 
ED 
69 
TE 
80 
20 
BB 
DO 
85 
DO 
Bl 
3E 
20 
D2 
DO 
TC 
03 
SE 
TE 
FO 
86 
FO 
8D 
AA 
10 
05 
Sr 
AD 
3A 
3A 
E6 
Dl 


3A 
6F 
85 
3E 
6F 
00 


L$01C9 


49 
A9 
d2 
A9 
0 
38 
6E 
2c 
co 
D2 
Dl 
TB 
73 
74 
69 
E9 
85 
TC 
TB 
TC 
02 
DI 
Dl 
Dl 
DO 
AC 
3E 
04 
3E 
10 
D1 
20 
BO 
Dl 
20 
85 
Dl 
DA 
SF 
28 
TF 
AO 
D8 
65 
28 
TA 
84 
91 
SB 
90 
Dl 
88 
c8 
70 
FO 
98 
00 









L$0140 


39 
85 
85 
Aö 
c5 
a5 
SF 
70 
69 
00 
20 
20 
95 
Ad 
E6& 
FO 
3E 
04 
DO 





00 
E3 
70 
SF 
E3 
70 
18 
EI 
E9 
85 
BE 
5C 
CD 
3E 
SF 
EC 
10 
Bl 
D5 








05 








DO89: 
DOSB: 
DOSD: 
DOSF'; 
DOS1: 
DO93: 
D0S5: 
D097: 
D0O99: 
DOSB: 
DOSD: 
DOSF: 
DOAO: 
DOA2: 
DOA4: 
DOAG: 
DOAS: 
DOAA: 
DOAC: 
DOAF: 
DOBl: 
DOB4: 
DOB6: 
DOB9: 


DOBB: 
DOBE: 
DOCO: 
DOCR: 
DOC4A: 
DOCT: 
DOCH: 
DOCEC: 
DOCE: 


DOoD!: 
DOD2: 
DOD4: 
DOD6: 
DOD8S: 
DODA: 
DODC: 
DODF: 
DOEL: 
DOES: 
DOES: 


DOET: 
DOES: 
DOEB: 
DOED: 
DOEF: 
DOF1: 
DOF3: 
DOFS: 
DOF7: 
DOFS9: 
DOFB: 
DOFD: 
D100: 
E101: 
D103: 
D105: 
D106: 
D108: 
DIOA: 
DI0B: 
DI0D: 
DIOF: 
DII]IE 
D11l3: 
D114: 
D1186: 
D118: 
D11A: 
D11C: 
DILIE: 
DIIF: 


D120: 


AD 


03 
3E 


02 
Sr 
DE 
DF 
SF 
DB 
D4 


00 
3E 


3E 
D8 
04 
SE 


05 
3E 
3E 


SF 


TE DI 229 BLTR 


Dl 


Dl 


D1 


DO 


Dl 


D1 


Dl 


Dl 


D1 


Dl 


144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
el 
Ir2 
173 
174 
175 
176 
177 
278 
279 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
20l 
202 
05 
204 
205 
206 
207 
208 
209 
210 
21l 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
Zar 
223 
224 
R2S 
226 
zer 
228 


NORVARl LDA INDEX ;Laufvariable 
ADC #7 ; um Offset zur nächsten 
STA INDEX ; Variablen erhöhen 
BCC NORVAR2 
INC INDEX+l 


NORVAR2Z EOR ARYTAB :Feldvariablen erreicht ? 


EBENE NORVARS3 : nein, dann weiter 
CPX INDEX+1 ;MSB prüfen 
BEQ RETURN ; ja, dann zurück 


NORVARZ LDY #$0 
LDA (INDEX),Y ;1. Namensbyte 
INY 
EOR (INDEX),Y ;2. Namensbyte 


BPL NORVAR ;kein String, wenn Bit? = Bit7 
LDA (INDEX),Y 

BPL NORVAR ‚kein String, wenn Bit? = 0 
LDY #$4 ;4, Eintrag = 


LDA (INDEX),Y ; Stringadresse MSB 
CMP SVESTRT ;liegt Variable im gepufferten 


BCC NORVARL ; Bereich ? 

CMP_SAVEND 

BCS NORVAR ; nein, dann nächste Variable 
JSR MVESTR ; ja, dann verschieben 

BEGQ NORVAR unbedingt 


* Array-Variablen bearbeiten 
ARYVAR JSR NATARY ;Array-Pointer erhöhen 

BCS RTNARY ;Ende aller Variablen erreicht 
ARYVARlL LDY #$02 ‘2. Eintrag = MSB 

LDA (INDEX),Y ;liegt Variable im gepufferten 


CMP SVESTRT ; Bereich ? 

BCC NXTVAR 

CMP _ SAVEND 

BCS NAÄTVAR : nein, dann gleich weiter 


JSR MVESTR ; ja, dann verschieben 


NXTVAR CLC 


LDA #3 ‚Offset zum nächsten Deskriptor 
ADC INDEX ;Laufvariable auf nächsten 
STA INDEX ; Deskriptor setzen 


BCC NATVARI 
INC INDEX+1 
NXTVARl CMP ARYINDX 
BNE ARYVAR1 


;Feldende erreicht ? 
; nein, dann normal weiter 


CPX INDEX+1 ;MSB prüfen 
BNE ARYVAR1 
BEQ ARYVAR ; ja, dann erst NAÄTARY aufrufen 


* Laufvariable auf nächstes Stringfeld setzen 


NXTARY CLC 
LDA ARYINDX 


‚als Flag und für Addition 
;Laufvariable auf 


STA INDEX ; nächstes Feld setzen 
STX INDEX+1 
EOR STREND ;Stringende erreicht ? 


BNE NATARYLl ‚ nein, dann weiter 

CPX STREND+l ‚MSB prüfen 

BEQ RTNARY ; ja, dann mit C = 1 zurück 
NXTARYl LDY #$2 ‚2. Eintrag = Relativpionter 

LDA (INDEX),Y ; zum nächsten Feld 


ADC INDEX :zu INDEX addieren 
STA ARYINDX ‚und als neuen Feldpointer 
INY ‚ merken 


LDA (INDEX),Y 

ADC INDEX+1 

TAX : X -> MSB 

LDY *$0 ‚NÄCHSTES FELD PRÜPEN 
LDA (INDEX),Y ;1. Namensbyte 

INY 

EOR (INDEX),Y ;2. Namensbyte 


BPL NXTARY ;kein String, wenn Bit7 = Bit7 

LDY #$4 ;4, Eintrag = Anzahl DIM's 

LDA (INDEX),Y 

ASL ;2 Bytes pro Dimension 

ADC #5 ; + 5 Bytes überspringen 

ADC INDEX ;: {wegen Tabelle der Größen 

STA INDEX : der einzelnen Dimensionen) 

BCC RTNARY 

ING INDEX+ 

CLC ;:C = 0 -> kein Stringende 
RTNARY RTS :C = 1 -> Stringende erreicht 


* Savebereich in Puffer übertragen 


LDA BUFSTRT :Startadresse des zu puffernden 


: TEST 


HOME : PRINT "FRE.TEST" 
PRINT CHR$ (4)"BRUN LC.FRE" 
A = 1000: REM Stringanzahl 
B$ = CHR$ (7): REM Bell 
GOSUB 220: DIM A$(A) 


FORT S0 WA 

A$(I} = B$:A$(I} = B$ 

NEXT 

GOSUB 220: PRINT B$; 

POKE 227, 255: CALL 768: 

REM FRE-Befehl 

PRINT B$;: GOSUB 220 

END 

PRINT "STRINGS= "; PEEK (115) + 
PEEK (116) « 256 - PEEK (111) - 
PEEK (112) * 256, 

PRINT "FRE= "; PEEK (111) + 
PEEK (112) * 256 - PEEK (109} - 
PEEK (110) * 256 

RETURN 
















Double-Hires-Utility 


Neu im Hüthig Software Service 


SUPERPLOT 


BLTRLOOP 


* String 


MVESTR 


MVESTRL 


MVSTLOOP 


RTNMVST 


BUFFER 
PAGES 
SVESTRT 
SAVEND 
BUFSTRT 
ARYINDX 
OLDTOP 





STA 
LDA 
STA 
LDY 
SsTY 
STY 
LDX 
INX 
LDA 
STA 
INY 
BNE 
INC 
INC 
DEX 
BNE 
RTS 


SOURCE+1 
BUFFER 
DEST+1 
+0 
SOURCE 
DEST 
PAGES 


(SOURCE) ,Y 
(DEST),Y 


BLTRLOOP 
DEST+1 
SOURCE+1 


BLTRLOOP 


2 UTILITIES 24 


; Bereichs 

‚Pufferadressse als Zielbereich 
: eintragen 

‚nur Banze Seiten 


;Seitenzähler 


‚verschieben 


;seitenweise 


unter FRETOF eintragen 


CMP 
BCE 
SsBt 
ELC 
ADC 
STA 
DEY 
LDA 
STA 
DEY 
SEC 
LDA 
SBC 
STA 
INY 
STA 
LDA 
SBC 
STA 
INY 
STA 
DEY 
DEY 
LDA 
BEQ 
TAY 
DEY 
LDA 
STA 
TYA 
BNE 
RTS 


DS 
DS 
DS 
DS 
DS 
DS 
DS 


BUFSTRT 
MVESTR1 
BUFSTRT 


BUFFER 
SOURCE+L 


(INDEX) ,Y 
SOURCE 


FRETOP 
(INDEX) ,Y 
FRETOP 


(INDEX) ,Y 
FRETOP+1 
+0 
FRETOP+L1 


(INDEX) ,Y 


(INDEX) ,Y 
RTNMVST 


(SOURCE) ,Y 
(ERELOP),Y 


MVSTLOOP 


von Karl-Walter Bott, erscheint Mitte Dezember 1984, Programmdiskette und Manual, DM 48,- 


SUPERPLOT ist eine neue, ungewöhnlich kompakte und schnelle Ampersand-Utility für Double Hires, die einschließlich eines 
vollständigen ASCII-Shape-Zeichensatzes wahlweise in Bank 1 oder Bank 2 der Language Card liegt und damit sowohl unter 
ProDOS als auch unter DOS 3.3, falls letzteres in die LC-Bank geschoben wurde, benutzt und in eigene Applesoftprogramme 
integriert werden kann. SUPERPLOT unterstützt die üblichen HGR-Befehle, denen lediglich ein & vorangestellt werden muß, 
also z. B. & HPLOT 500, 100 TO 500, 150 usw. SUPERPLOT ist speziell für das Plotten von beschrifteten wissenschaftlichen 
Funktionskurven mit hoher Auflösung gedacht und weniger für HGR-Spiele. 


Hüthig Software Service - Postfach 102869 - 6900 Heidelberg 1 


;befindet sich MSB innerhalb 
; des Puffers ? 

; ja, dann auf entsprechende 
‚ Adresse innerhalb des 

; Puffers setzen , 

;MSB des String-Zeigers 


;LSB des String-Zeigers 
‚als Quellbereich 


‚Stringende um Länge 
; des Strings herabsetzen 


;Deskriptor LSB aktualisieren 


‚falls Seite unterschritten 
:Deskriptor MSB 


‚Stringlänge 
:wenn 0, dann fertig 
‚Länge als Index 


‚alten String 
; verschieben 
;Zero-Flag 7 


‚Adresse des Puffers 

‚Anzahl der Pufferseiten 

;Start des Savebereiches 

; Ende des Savebereiches 

‚tatsächlich gepufferter Bereich 
;Feldindex (letzter Feldanfang) ‘ 
<-> FRETOP vor G/C —_ 
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von Dr. Jürgen B. Kehrel 


Den Inhalt einer Bildschirmseite in ge- 
druckter Form vorliegen zu haben kann 
zu Dokumentationszwecken nützlich 
sein. Eine Reihe von „intelligenten“ 
Druckerinterfaces ist in der Lage, auf 
einen einfachen Befehl hin eine soge- 
nannte „Hardcopy“ auf einem Drucker 
zu erzeugen. Was aber, wenn Sie die- 
sen Ausdruck gern mitten in einem län- 
geren Text stehen hätten oder weiter- 
bearbeiten wollen? Hier ergibt sich die 
Notwendigkeit, eine Bildschirmseite 
als einen Textfile auf Diskette abzu- 
speichern, der dann in ein Textverar- 
beitungsprogramm wie z.B. Applewri- 
ter Il eingelesen und von beliebigem 
Text eingerahmt werden kann. Die im 
folgenden beschriebenen Programme 
„SCHIRMDISK“ und „VIDEXT“ erledi- 
gen genau diese Aufgabe. 


Das SCHIRMDISK-Programm 


SCHIRMDISK kann auf zwei Arten benutzt 
werden: Die eine eignet sich zur Einbin- 
dung in Programme, aus denen heraus es 
aufgerufen werden kann. Die zweite Art ist 
für solche (Fremd-)Programme gedacht, 
bei denen man einen CALL-Befehl nicht 
einbauen kann. Einzige Voraussetzung 
hier: Mit Reset muß man das Programm 
verlassen können, und beim Laden darf 
das SCHIRMDISK-Programm nicht über- 
schrieben werden. Die Diskettenkopie Ih- 
res Bildschirms wird ausgeführt und als 
Textfiie „SCHIRMTEXT" auf das aktuelle 
Laufwerk geschrieben, wenn Sie die Re- 
set-Taste drücken (Ctrl + Reset auf Apple 
Ile). 

Nun zum Programm selbst. Vor der An- 
wendung muß es einmal mit „BRUN 
SCHIRMDISK“ initialisiert werden. Da- 
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Speichern Sie 
en Bildschirm ab! 








Organisation des 40-Z/Z-Apple- und des 


80-Z/Z-Videx-Bildschirms 


durch werden die Vektoren in $OSF2- 
$03F4 auf die zweite Einsprungstelle ge- 
legt, denn der Apple schaut nach dem 
Drücken der Reset-Taste hier nach, wohin 
er springen soll, $O3F2 und $03F3 stellen 
die Adresse dar und $03F4 eine Prüfzahl, 
das sogenannte „Power-up-Byte“. Es 
muß den Wert von $03F3 Exklusiv-Oder 
verknüpft mit der Hexadezimalzahl $A5 
besitzen. Falls das nicht der Fall ist, macht 
Ihr Appie immer einen Kaltstart, benimmt 
sich also so, als hätten Sie ihn gerade 
eingeschaltet. Kaum jemand wird im Kopf 
EOR $A5 ausrechnen können, doch gibt 
es glücklicherweise im Monitor eine Routi- 
ne bei $FB6F, die das für uns erledigt und 
den richtigen Wert nach $03F4 schreibt. 

Damit ist die Initialisierungsphase abge- 
schlossen. Wenn Sie SCHIRMDISK aus 
einem Programm starten wollen, können 
Sie dies, auch ohne Reset drücken zu 
müssen, mit einem CALL 798 direkt tun. 


Der Apple-Textbildschirm 


Der Apple kann auf seinem Textbildschirm 
24 Zeilen (0-23) mit je 40 Zeichen (0-39) 
darstellen, also insgesamt 960 Zeichen. 
Es existieren zwei Textbildschirmseiten, 
von denen normalerweise nur die Seite 1 
angezeigt und benutzt wird. Jedem Zei- 
chen auf dem Bildschirm entspricht eine 
Speicherposition im RAM des Apple. Die 
Seite 1 benutzt Speicherstellen von $0400 
bis $07FF, die Seite 2 von $0800 bis 
$OBFF, Letztere werden auch von Ap- 
plesoft zur Speicherung des Programms 
verwendet, so daß die Benutzung der 
zweiten Textseite einige Änderungen er- 
fordert, die in diesem Zusammenhang 
nicht erläutert werden sollen. Befassen wir 
uns also nur näher mit der Textseite 1. 


Jedes Zeichen wird repräsentiert durch 
seinen ASCII (American Standard Code 
for Information Interchange)-Wert. Dem 
Apple Il Reference Manual entnehmen wir, 
wie jeder Code von $00 bis $FF auf dem 
Bildschirm dargestellt wird. Jeder Groß- 
buchstabe ist viermal vorhanden, entspre- 
chend NORMAL, INVERSE und FLASH 
sowie als nicht-sichtbares Otrl-Zeichen. 
Zahlen existieren drei- oder viermal, je 
nachdem ob der Apple Kleinbuchstaben 
anzeigen kann oder nicht, denn die Codes 
von $EO bis $FE sind im Apple Ile oder im 
umgerüsteten II Plus mit dem kleinen nor- 
malen Alphabet belegt. So ist es auch 
verständlich, warum wir keine blinkenden 
oder inversen Kleinbuchstaben haben. 
(Diese Angaben beziehen sich vornehm- 
lich auf den Apple Il Plus mit Kleinschreib- 
umrüstsatz. Beim Ile und lic gibt es er- 
stens gegenüber dem Apple Il einen zu- 
sätzlichen, „alternativen“  Zeichensaiz 
ALTCHAR und zweitens sind diese alter- 
nativen Zeichensätze beim Ile und Ile nicht 
identisch wegen der sog. Maus-Sonder- 
zeichen beim Ilc. Auf die diesbezüglichen 
Unterschiede wird in einem gesonderten 
Screen-Dump-Aufsatz eingegangen. 
Anm. d. Red.) 

Aufeinanderfolgende Zeilen stehen nun 
leider nicht auch aufeinanderfolgend im 
Speicher. Vielmehr wird folgendes Muster 
verwendet: 


Zeile Adresse Zeile Ädresse Zeile Adresse 


0 $0400-427 8  9$0428-44F 16 $0450-477 
1 $0480-4A7 9 $04AB-ACF 17. $04DO-4F7 
2 50500-527 10. $0528-54F 18  $0550-577 
3 $0580-5A7 11. $05A8-5CF 19  $05DO-5F7 
4 $0600-627 12 $0628-64F 20 $0650-677 
5 $0680-6A7 13. $06A8-60F 2i  $06D0-6F7 
6 0700-727 14 $0728-74F 22 0750-777 
4 30780-7A7 15 $07A8-7CF 23 807D0-7F7 


Wenn wir horizontal durch diese Tabelle 
schauen, so sehen wir, daß immer 7 Zei- 
len übersprungen werden. $0400-$047F 
stellt also die Zeilen O0, 8 und 16 dar. Es 
bleiben 8 Bytes übrig, die nicht gesehen 
werden können und die als sogenanntes 
„Sscratchpad“-Stellen oder „Screen- 
Holes“ den Erweiterungskarten zugeord- 
net sind. 


Speichern des Bildschirms 


Wollen wir den Bildschirm-Inhalt als Text- 
file speichern, so müssen wir diesem Mu- 
ster folgen, da sonst die Zeilen durchein- 
andergeraten. Für jede Zeile muß das Ma- 
schinenprogramm die Anfangsadresse er- 
rechnen. Zum Glück besorgt das für uns 
wieder eine Routine im Apple-Monitor na- 
mens BASCALC bei $FBC1, die ihr Er- 
gebnis in BASL, BASH ($0023, $0029) 
ablegt. Um BASCALC mitzuteilen, welche 
Zeile wir lesen wollen, benutzen wir die 
Routine VTABZ ($FC24). Die Zeilennum- 
mer muß beim Aufruf im Akkumulator ste- 
hen (deshalb der TXA-Befehl). Die Start- 
adresse wird dann nach $0028-$0029 ge- 
schrieben, von wo wir durch indirekt indi- 
zierte Adressierung mit dem Y-Register 
die folgenden 40 Zeichen lesen und aus- 
geben. Dabei werden alle Zeichen in 
NORMAL umgewandelt, Ctrl-Zeichen 
werden zu Leerzeichen gemacht. 


DOS und DIRECT MODE 


Soweit ist unser Programm jetzt fertig, wir 
müssen nur noch die Diskettenbefehle ge- 
ben. Wir tun dies genauso, wie wir es in 
BASIC auch gemacht hätten, und zwar mit 
Gtrl-D OPEN SCHIRMTEXT <Return> 
Ctrl-D WRITE SCHIRMTEXT <Return> 
Gtr\-D CLOSE <Return> am Ende. 

Wir drucken die Befehle in einer Schleife 
über COUT aus, wodurch sie von DOS 
erkannt werden Können. Dieses Verfahren 
funktioniert leider nur mit DOS 3.3 und 
nicht mit ProDOS. (Ein Screen-Dump-Pro- 
gramm für ProDOS ist ebenfalls in Vorbe- 
reitung. Anm. d. Red.) 

Würden wir unser Programm jetzt starten, 
so erhielten wir nicht den gewünschten 
Textfile, weil noch drei Fehler vorliegen. 
Der erste hat damit zu tun, daß wir unser 
Programm auch über Reset starten wollen. 
Dadurch wird DOS abgekoppelt, so daß 
keine Diskettenbefehle mehr möglich 
sind. Die Routine DOSHOOK oder CON- 
NECT ($03EA) verbindet DOS wieder mit 
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Softswitch Zeile 
(LDA, PEEK) 
COBO 
Bank 0 | CDFF |CC00 
a 7 
8 | 
9 
10 
COB4 11 1920 Zeichen 
Bank 1 12 CDFFI CCOO Bildschirm 
-2---- ---; 
14 
15. 
16 
172 
COB8 18 | 
Bank 2 19 | CDFF[CCOO 
De 20 
21 
22 
93 CD?7F 
COBC TITEL 128 Zeichen 
Bank 3 > unstchtbar 
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Diagramm 1: Organisation des Videx-Bildschirms 


dem Informationsfluß. Trotzdem bekämen 
wir eine Fehlermeldung, nämlich „NOT 
DIRECT COMMAND“, OPEN und WRITE 
läßt DOS nämlich nur aus einem laufenden 
BASIC-Programm zu und nicht als direkte 
Tastatureingabe. Ein Maschinenprogramm 
ist für DOS aber wie eine Tastatureingabe. 
Also müssen wir ein laufendes Programm 
vortäuschen. Mit den Befehlen in Zeile 38 
bis 44 wird dies erreicht. In einem BASIC- 
Programm enthält $AAB6 eine Codezanhl 
für das verwendete BASIC ($40 = Ap- 
plesoft ROM), CURLIN und CURLIN+1 
die laufende Zeilennummer. Befinden wir 
uns nicht in einem Programm, ist CUR- 
LIN+1 gleich $FF. Das normale Prompt- 
zeichen Ü = $DD wird in $0033 abgespei- 
chert und ändert sich bei einem laufenden 
Programm in $06. Schließlich ist Bit 7 bei 
$00D9 = RUNMODE in einem Programm 
gesetzt. Bringen wir diese kleinen Ände- 
rungen an, glaubt DOS, ein BASIC-Pro- 
gramm auszuführen, und alles läuft so, wie 
von uns geplant. 

Einen kleinen Schönheitsfehler hat das 
Programm immer noch. Wenn wir Reset 
drücken oder es mit einem CALL 798 star- 
ten, springt der Bildschirm um eine Zeile 
hoch, so daß uns die obersten 40 Zeichen 
verlorengehen. Dies liegt nicht an der 
Reset-Routine selbst, sondern an der Tat- 
sache, daß wir vor einem Diskettenbefehl 


ein Return (= $8D) ausgeben müssen. 
Wieder hilft ein Trick weiter. Mit den Be- 
fehlen in Zeile 34 bis 37 koppeln wir 
schlicht und einfach den Bildschirm ab. 
Wenn der Apple ein Zeichen über die Rou- 
tine COUT (= $FDED) sendet, schaut er in 
den Speicherstellen $0036 und $0037 (= 
CSWL, CSWH) nach, wohin er es weiter- 
geben soll. Ohne DOS steht hier $FDFO 
(= COUTI1). DOS schaltet sich nun In den 
Informationsfluß ein, indem es den Zeiger 
in sich selber hinein nach $9EBD verwei- 
sen läßt. Hier werden die DOS-Beiehle 
ausgefiltert und alles übrige normalerwei- 
se an COUT1 übergeben. Diese Weiterlei- 
tungsadresse (Vektor-Adresse) steht in 
$AAB53 und $AAS54. Schreiben wir hier ein- 
fach die Adresse einer Speicherstelle hin- 
ein, die eine RTS-Instruktion enthält, bleibt 
der Bildschirm unangetastet, DOS erhält 
aber noch immer alle Informationen. 
SCHIRMDISK wurde für den Bereich von 
$0300 an assembliert und kann mit dem 
Befehl 

BSAVE SCHIRMDISK, A$0300, L$00B3 
abgespeichert werden. 


Der Videx-Videoterm-Bildschirm 


Wenden wir uns nun der zweiten Aufgabe 
zu, den Schirm einer Videx-80-Zeichen- 
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karte komplett abzuspeichern. Wieder ist 
es unser erstes Ziel, den Aufbau des Bil- 
des zu verstehen. 

Der Videoterm-Bildschirm ist grundsätz- 
lich anders organisiert als der Apple-40- 


BASEH $04FB High Byte aktuelle Zeile 


44 


SCHIRMDISK 





BSAVE SCHIRMDISK, A$0300, L$00B8 
initialisieren 
CALL 798 starten 


Mit BRUN SCHIRMDISK 
Mit Ctrl-Reset oder 


Zeichenschirm. Der komplette Bildschirm- De 
speicher liegt auf der Videoterm-Karte in 3 x Apple 40-2/Z-Schirm -> Textfile 
' It | t 4 %* 
einem RAM von 2K Umfang. Er ist in die Ass m es 
vier Bänke 0-3 aufgeteilt, die jeweils den FC22 6 VTAB EQU $FC22 
Adreßraum von $CC00-$CDFF belegen. FC24 7 VTABZ EQU $FC24 
= u FDED 8 GOUT EQU $FDED 
$C800-$CBFF wird von der Videoterm- FE93 9 SETVID EQU $FEIZ 
Firmware benutzt, $CEOO-$CFFF ist frei, FB6F 10 SETPWRC EQU $FBEF 
Alle Zeichen stehen sequentiell im Spei- ns ee 
cher, d.h. aufeinanderfolgende Zeichen 0075 13 CURLIN EPZ $75 
liegen hintereinander, die Zeilen folgen nn u > 
einander. Von den 2048 Bytes (= 2K) sind 03F2 16 SOFTEV EQU $3F2 
immer nur 80 : 24 = 1920 Bytes sichtbar. 03D0 17 DOS EQU $3D0 
Di g Bänk d kti z rt d h i O3EA 18 DOSHOOK EQU $3EA 
ie vier an e weragen aktlvie UFC air 0028 19 BASL EPZ $28 
Leseoperation (LDA oder PEEK) der Spei- 20 x | 
cherstellen $COBO (Bank 0), $COB4 (Bank es 55 er au nn 
1), $COB8 (Bank 2) oder $COBC (Bank 3). 0300 23 % 
an r : & ‘ 0300 D8 2A START GEB ‚;Binärmodus 
Insoweit ist die Videx Karte einfacher zu 0301 AQ 1E 2 LDA ENTRY ;Reset-Vektor auf 
verstehen als der Apple-Bildschirm. Kom- 0303 8D F2 03 26 STA SOFTEV 
pliziert wird alles erst durch die Tatsache, uuoe u LDA /ENTRY Euluy olzen 
: ö Br : 0308 8D F3 03 28 STA SOFTEV+1 
daß den Bildschirmpositionen keine festen 030B 20 6F FB 29 JSR SETPWRC ;Power-up-Byte setzen 
Speicherplätze zugeordnet sind, sondern 030E > 50 RTS 
‚ ı : ı . 0350F Bl BO B3 3. ASC ''1984 DR. KEHREL!" 
der Bildanfang irgendwo in einer der vier eo 
Speicherbänke liegt. Diese Methode wur- 0315 D2 AE AO 
de gewählt, um ein einfaches Auf- und a 
Abwärts-Scrollen zu ermöglichen. Die va- 031E 32 %* 
riable Bildstartadresse, der Angelpunkt ss = Ss 03 > ENTRY nn een . 
ı . a Fr ‚D1l SCHITM 
des Bildes, wird an einer definierten Stelle 0323 ED 53 AA 35 STA DOUT nen 
abgelegt ($06FB), um für alle Positionsbe- 0326 AQ FF 36 LDA /RETURN 
rechnungen zur Verfügung zu stehen. SE re 
Ganz beliebig liegt der Start nun aber auch 032D 8D BE AA 39 STA LANGUA ;ROM Applesoft 
wieder nicht, denn er kann sich immer nur en a = a en a er Ener 
in Sprüngen von 80 Zeichen (= 1 Zeile) 0334 85 33 42 STA CURSOR 
fortbewegen. Damit erhalten wir als mögli- en es = n En ne 
che Startpositionen $0000, $0050, $00AO, 0334 A2 00 45 IDX +0 
$00FO, $0140, $0190 usw. Wie Sie leicht ER Er SC 03 46 DISK LDA TEXT,X ‚Disk-Befehle 
oe a E . . F 06 AT BEQ DRUCK 
sehen können, ändern sich nur die beiden een Er com 
mittleren Ziffern, und genau diese werden 0344 E8 49 INX 
in das eine Byte bei $06FB gepackt. en 2 ENELDIER 
Die Cursorposition zählt horizontal 0347 A2 00 52 DRUCK LDX #0 
i 0349 8A 553 TAB TXA 
(CHORZ) von OÖ bis 73 ($00-$49) und ver 0344 20 24 FO 54 JSR VTABZ ‚Berechne Adresse 
tikal (CVERT) von O bis 23 ($00-$17). Die 034D AO 00 55 LDY #0 
Startadresse der augenblicklich bearbeite- a Be N 
ten Zeile, die im Bereich von $0000 bis 0353 BO 02 58 Bcs Pl 
$07FF einschließlich liegt, ist in BASEL an 59 ORA #5C0 ‚$00-1F -> $C0-DF 
B : 0357 C9 60 60 Pi CMP #$60 
und BASEH abgelegt. Befindet sich der 0359 BO 02 en BCS P2 
Cursor in der ersten Position der ersten nn = = = : ORA ee ‚$20-5F -> $AO-DF 
Zeile (HOME Cursor), so sind Bildstart und ee a 
Zeilenstart identisch. Wir werden diese 0361 49 co 65 EOR #$CO :$60-7F -> $AO-BF 
Tatsache benutzen, um eine einfache Me- re ei en 
thode zum Abspeichern des Bildschirms 0367 AQ AO 68 LDA #$A0 :$80-9F -> $AO0 
ZU entwickeln. 0369 20 ED FD 69 SENDEN JSR COUT 
| E e I di : ht t 036C C8 70 INY 
| Fassen wir noch einmal ale WIChIgSTEN 036D CO 28 71 CPY #40 ‚Ganze Zeile fertig? 
Adressen zusammen, wie sie für eine Vi- nn > DE = BNE LADEN 
3 INX 
| dex-Videoterm in Slot 3 gelten: 0372 EO 18 74 CPX +24 ;alle Zeilen fertig? 
| 0374 DO D3 75 BNE TAB 
. 0376 A2 00 76 LDX #0 
BASEL $047B Low Byte aktuelle Zeile 0378 BD AF 03 77T tCLOSE LDA TEXT1,X ‚Disk-Befehl 


Fortsetzung auf Seite 61 
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Ein umfassendes CP/M-MBASIC-Programm 








Unter dem Motto — alle Jahre wieder, da 
schlachten wir ein Schwein — ist es auch 
jetzt wieder an der Zeit, vom Vater Staat 
die Steuern zurückzuverlangen. Abertau- 
sende von Arbeitnehmern schenken dem 
Staat jährlich Millionen Deutsche Mark, in- 
dem sie gesetzlich verankerte Steuervor- 
teile nicht ausschöpfen. Sie nehmen we- 
der die ihnen zustehenden Freibeträge für 
das laufende Jahr noch den Lohn/Einkom- 
mensteuer-Jahresausgleich in Anspruch, 
oder sie nutzen mangels entsprechender 
Kenntnisse und Aufklärung die Ihnen zu- 
stehenden Vergünstigungen nicht voll aus. 


Noch schwieriger wird es mit der Berech- 
nung der Steuer. Dieses Programm soll 
Ihnen eine Hilfestellung geben. Das Pro- 
gramm gibt keine Ratschläge in Rechts- 
fragen, sondern ermöglicht nur dem Laien 
eine schnelle Berechnung des zu versteu- 
ernden Einkommens. Wer also dieses 
Programm benutzt, muß sich im klaren 
darüber sein, welchen Betrag er wo anset- 
zen kann oder nicht. 


Das Programm ist in Microsoft Basic 
(MBASIC) geschrieben und erfordert das 
Betriebssystem CP/M 56 und folgende 
Hardware: 


Apple II+/e 

Monitor 

Z80-Karte 
80-Zeichen-Karte 

1 Diskettenlaufwerk 


. 









1984 


Lohn- und 
Einkommensteuer 








Ein umfassendes CP/M-MBASIC-Programm 


von Volker Duske 


Um einige Programme schneller zur Ver- 
fügung zu haben, könnte man eine 128K/ 
256K-Karte als Pseudo-Floppy benutzen, 
was jedoch nicht unbedingt erforderlich 
ist. l 


Wenn Sie das abgebildete Listing eintip- 
pen möchten, hier einige wichtige Hin- 
weise: 


Da das Programm sehr lang ist und MBA- 
SIC allein 24K in Anspruch nimmt, ist der 
Speicherplatz für Programm und Daten 
recht gering. Dies wurde durch etliche Un- 
terprogramme umgangen, die mit A, B,C, 
.. N, PASS, MENUE und HELP bezeich- 
net wurden. Die Übergabe der Variablen 
erfolgt durch die Anweisungen COMMON 
und CHAIN. Die Variablen sind im Pro- 
gramm PASS durch die DIM-Anweisun- 
gen dimensioniert, d.h. dies ist zugleich 
das spätere Startprogramm. 

Der Code-Name „PEEKERDUSKE" muß 
eingegeben werden, da sonst alle Pro- 
gramme außer MENUE und MBASIC ge- 
löscht werden. Falls Sie sich die Mühe 
machen wollen und das Programm abtip- 
pen, so können Sie einige Unterprogram- 
me weglassen, wenn diese nicht bei Ihrem 
Antrag benötigt werden. Ein kleines Bei- 
spiel: 


Sie haben keine Einkünfte aus Gewerbe- 
betrieb oder aus Kapitalvermögen. Damit 
brauchen Sie die entsprechenden Uhnter- 
programme nicht einzutippen. Das gilt 
auch für andere Unterprogramme, z.B. 


HELP. Allerdings ist es ratsam, sich zu- 
nächst einmal diese Help-Menüs durchzu- 
lesen, da hier sämtliche Instruktionen zum 
Arbeiten mit dem Steuerprogramm zu er- 


-sehen sind. (Das HELP-Modul als Pro- 


gramm bzw. Listing befindet sich nur auf 
der Peeker-Sammeldiskette. Statt dessen 
haben wir hier der besseren Übersicht hal- 
ber die Bildschirm-Menüs selbst reprodu- 
ziert. Anm. d. Red.) 


Abschließend noch ein wichtiger Hinweis: 
Das vorliegende Programm kann trotz 
mehrfacher Überprüfung Fehler enthalten, 
Dies sei nicht nur zum Schutz des Autors 
und der Redaktion erwähnt, sondern auch 
zum Schutz vor übereiltem Handeln. Bitte 
erklären Sie bei Abweichungen der 
Rechenergebnisse dieses Programmes 
von denen des Finanzamtes den Steuer- 
bescheid nicht gleich für falsch, da es sich 
auch um rechtliche Differenzen handeln 
kann. Dieses Programm kann keine recht- 
lichen Entscheidungen treffen. 


Das Programm kann als gesonderte . 
Peeker-Sammeldiskette im CP/M-Format 
zum Einzeipreis von DM 28,- (bzw. DM 
20,- für Peeker-Sammeldiskette-Abon- 
nenten) erworben werden. Diese Sam- 
meldiskette enthält alle Programmdateien, 
nicht jedoch MBASIC, das zuvor von der 
eigenen Systemdiskette geladen werden 
muß. Danach wird das Steuerprogramm 
gestartet mit: 


A> PASS 





— 


Programm Lohn- und Einkommensteuer 


PASS.BAS: Password 


1000 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1065 
1070 
1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 


1115 


1120 


1125 
1150 


HOME 

COMMON A(}, Bi), Cl}, DI), EU), MÜ), NÖ) 
VTAB 8:HTAB 35: PRINT"STEUER '84" 

VTAB 10:HTAB 33: PRINT"PEEKER-SOFTWARE" 
HTAB 38: PRINT"1984" 

HTAB 34: PRINT"Volker Duske" 

HTAB 32: PRINT"Kieler Str.309 B" 

HTAB 32: PRINT"2350 Neumünster" 

HTAB 32: PRINT" -——— N 

HTAB 32: PRINT"Dr. Hüthig Verlag" 

HTAB 32: PRINT"Tel.: 06221/489-1" 

HTAB 32: PRINT"Serial #.: d00002" 

HTAB 32: PRINT"Passwort : "; 

CODE$=" nt 

FOR I=1T0ll 

T$=INKEY$ 

IF T$="" THEN 1075 





CODE$=CODE$+T$ 

NEXT I 

IF CODE$="PEEKERDUSKE" THEN 1125 

HOME 

VTAB 3:HTAB 10:PRINT"... bitte warten !!I" 

KILL "N.BAS": KILL "PASS.BAS": KILL "A.BAS": KILL 


"B.BAS": KILL "C.BAs" 

KILL "D.BAS": KILL "E.BAS": KILL "F,BAS': KILL 
"G.BAS": KILL "H.BAS" 

KILL "I.BAS": KILL "J.BAS": KILL "K.BAS": KILL 
"L.BAS": KILL "M.BAS" 

DIM A{120), B{120), C(70), D(70), E(20), M(10), N(5) 
CHAIN "MENUE" 


MENUE.BAS: Hauptmenü 


1135 
1140 
1145 


1150 
1155 
1160 
1165 
1170 
1175 
1180 
1185 
1190 


1195 
1200 
1205 


1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 


1310 
1315 
1520 
13525 
1330 
1335 
1340 


1345 
13550 


1355 
1360 
1365 
1370 
1375 


REM MENUE 

COMMON Al), B{Ü), C(), DU), EU), MÜ), NÜ) 

HOME: PRINT"Hauptmenue :":FOR I = 1 TO 

79: PRINT"-";:NEXT I:PRINT 

VTAB 4: PRINT" <A> Grundangaben'!' 

PRINT" <B> Einkünfte aus Land- und Forstwirtschaft" 
PRINT" <C> Einkünfte aus Gewerbebetrieb" 

PRINT" <D> Einkünfte aus selbständiger Arbeit! 
PRINT" <E> Einkünfte aus nichtselbständiger Arbeit" 
PRINT" <F> Einkünfte aus Kapitalvermögen” h 
PRINT" <G> Einkünfte aus Vermietung und Verpachtung!" 
PRINT" <H> Sonstige Einkünfte!" 

PRINT" <I> Doppelbesteuerung u. außerordentliche 
Einkünfte" ! 

PRINT" <J> Sonderausgaben" 

PRINT" <K> Außergewöhnliche Belastungen" 

PRINT" <L> Besondere Abzugsbeträge u. ausländische 
steuern" 

PRINT" <M> Einkünfte zur An- u. Abrechnung" 


PRINT" <N> Berechnungen durchführen" 
PRINT: PRINT" <?> HELP 

PRINT" <X> NEUER DURCHLAUF" 

PRINT" <Z> ENDE — zurück ins Betriebssystem" 
IF M{l) = 1 THEN VTAB 4:HTAB 11:PRINT"«" 
IF M{2) = 1 THEN VTAB 5:HTAB 11: PRINT"#" 
IF M{3) = 1 THEN VTAB 6:HTAB 11: PRINT"«" 
IF M{4) = 1 THEN VTAB 7:HTAB I1:PRINT'«" 
IF M{5) = 1 THEN VTAB 8:HTAB 11: PRINT"«" 
IF M{6) = 1 THEN VTAB 9:HTAB 11:PRINT"«" 
IF M{7) = 1 THEN VTAB 10:HTAB 11: PRINT'«" 
IF M{8) = 1 THEN VTAB 11:HTAB 11: PRINT"+" 
IF M{9) = 1 THEN VTAB 12:HTAB 11: PRINT'"«" 
IF M{10} = 1 THEN VTAB 13:HTAB 11: PRINT"«" 


IF N{l) = 1 THEN VTAB 14:HTAB 11: PRINTg" 
IF N(2) = 1 THEN VTAB 15:HTAB 11: PRINTU«" 
IF N{3) = 1 THEN VTAB 16:HTAB 11: PRINT«" 
IF N{4) = 1 THEN VTAB 17:HTAB 11: PRINTI%" 
VTAB 23:HTAB 20:PRINT"Bitte wählen Sie <A -M, ?, X, 


Z> ——> < >" 

WTAGE$=" ABCDEFGHIJKLMN?XZ" 

VTAB 23:HTAB 67:GET W0$ 

VTAB 23:HTAB 67: PRINT W0$ 

P=INSTR (WTAGE$, W0$) 

IF P=0 THEN 1315 

Pl=P 

ON Pl GOTO 

1350, 1350, 1350, 1350, 1350, 1350, 1350,1350,1350,1350,135 
0,1350,1350,1350,1350, 1350, 1435 

GOTO 1145 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FORS = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
...":FOR Sl = 1 TO 100:NEXT SI:NEXT I 

IF Pl 


= 1 THEN M{1} = 1:CHAIN "A" 
IF Pl = 2 THEN M(2) = 1:CHAIN "B" 
IF Pl = 3 THEN M{3) = 1:CHAIN "GC!" 
IF PL = 4 THEN M(4} = 1:CHAIN "D" 
IF PL =5 THEN M(5) = 1:CHAIN "E" 








1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 


IF Pl = 6 THEN M(6) = 1:CHAIN "F" 
IF Pl = 7 THEN M(7) = 1:CHAIN "G" 
IF Pl = 8 THEN M(8) = 1:CHAIN "H'" 
IF Pl = 9 THEN M{9) = 1:CHAIN "T" 
IF Pl = 10 THEN M(10) = 1:CHAIN "y" 
Ir Pl = 11 THEN N(l) = 1:CHAIN "K" 
IF Pl = 12 THEN N{2) = 1:CHAIN "L" 
IF Pl = 13 THEN N(3) = 1:CHAIN "M" 
IF Pl = 14 THEN N{4) = 1:CHAIN "N" 
IF Pl = 15 THEN CHAIN "HELP" 

IF Pl = 16 THEN CLEAR:RUN "PASS" 
IF Pl = 17 THEN HOME: SYSTEM 


A.BAS: Grundangaben 


1440 
1445 
1450 
1455 
1460 


1465 


1470 


1475 


1480 


1485 


1490 


1495 


1500 


1505 


1510 
1515 


1520 
1525 


1530 


1535 
1540 
1545 
1550 
1555 


1560 
1565 


1570 


1575 
1580 
1585 
1590 
1595 
1600 


1605 
1610 
1615 


1620 
1625 
1630 
16535 
1640 
1645 
1650 


1655 
1660 
1665 


1670 
1675 
1680 


1685 
1690 


1695 
1700 


1705 
1710 


REM GRUNDANGABEN 

COMMON Al), BÜ), Ci), Di), El}, M(), NÜ) 

HOME: PRINT"Grundangaben :" 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 5:PRINT"Familienstand : <l> ledig, <2> 
verheiratet .......:v2... = 

PRINT'"Geburtsdatum (TTMMJJ) : steuerpflichtiger 
Ehemann ... (usa. 

PRINT"Geburtsdatum (TTMMJJ) : steuerpflichtige 
Ehefrau Aare er." 

PRINT'"Religion : <0O> keine, <l> ev., <2> rk. Ehemann 


„ 
.: 


PRINT"Religion : <O> keine, <l> ev., <2> rk. Ehefrau 


FAINTURKinder : Anzahl 11, 2. 5,4, 2.) 


Ir 
anna. Era 


PRINT"Zahlkinder : Anzahl [l, 2, 3, 4, -..) 


PRINT"Witwensplitting : <J> ja, <N> nein 
I 


T 


:-BbBEBEr Fu. ua ar re 


PRINT: PRINT"Bestehen für die Ehefrau Einkünfte oder 
Ausgaben, die in diesen" 

PRINT"Antrag berücksichtigt werden müssen ? 

a ZN ..2 

VTAB 5:HTAB 65:INPUT"",A(1) 

IF A{l) = 1 OR A{l) = 2 THEN VTAB 5:HTAB 65: PRINT" 
";A(l):ELSE 1510 

VTAB 68:HTAB 65: INPUT"",A$ 


AS1=VAL(RIGHT$(A$,2)):AS2=VAL(MID$(A$,3,2)):AS3=VAL(L 
EFT$(A$,2)) 2 

IF LEN{A$) = 6 AND ASI < 99 AND AS2 < 13 AND AS3 < 
32 THEN VTAB 6:HTAB 65: PRINT" ";A$:ELSE 1520 

A=VAL (RIGHT$ (AB, 2)-HMID$(A$,3,2)+LEFT$(A$,2)) 

Al2)=1 

IF A < 350102! THEN A(2)=5 

IF A < 200102! THEN A(2)=7 


IF A(1) = 1 THEN VTAB 7:HTAB 74: PRINT"-——-"; :GOTO 
1595 
VTAB 7:HTAB 65: INPUT"",A$ 


ASI=VAL(RIGHT${A$,2)):AS2=VAL(MID$(A$,3,2)):AS3=VAL(L 
EFT${A$,2)) 

IF LEN(A$) = 6 AND AS1 < 99 AND AS2 < 13 AND AS3 < 
32 THEN VTAB 7:HTAB 65; PRINT" ";A$:ELSE 1560 

A=VAL (RIGHT$(A$,2)4MID$(A$,3,2)+LEFT$(A$,2)) 

B(2)=1 

IF A < 350102! THEN B(2)=5 

IF A < 200102! THEN B(2)=7 

VTAB 8:HTAB 65: INPUT"",A(3) 

IF A(3) = 0 OR A(3) = 1 OR A(3) = 2 THEN VTAB 8:HTAB 
65:PRINT" ";A(3):ELSE 1595 

IF A{l} = 1 THEN VTAB 9:HTAB 79: PRINT"-";:GOTO 1620 
VTAB 9:HTAB 65: INPUT"",B({3) 

IF B{3) = 0 OR B(3) = 1 OR B(3) = 2 THEN VTAB 9:HTAB 
65: PRINT" ";B(3):ELSE 1610 

VTAB 10:HTAB 65: INPUT"",A(4) 

VTAB 10:HTAB 65: PRINT" ";A(4) 

VTAB 11:HTAB 65: INPUT", A(5) 

VTAB 11:HTAB 65: PRINT" ";A(5) 

IF A(1l) = 1 THEN 1680 

VTAB 12:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 12:HTAB 65: PRINT" 
":Y$:ELSE 1645 

IF Y$ = "J" THEN A(6) = 1:IF A(6) = 1 THEN E(l) = 1 
VTAB 15:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 15:HTAB 65: PRINT" 
":Y$:ELSE 1660 

IF Y$ = "N" THEN A118) = 1 

IF Y$ = "N" THEN All} = 1 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
nichtig 2 aJ/Na nn..." 

VTAB 23:HTAB 65:GET E$ 

IF E$ = '"'J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 1685 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-"* NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 1510 
VTAB 3:HTAB 65: PRINT" " 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 


47 


-——_= z Ko 


ee an 


. 


1715 


1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
„..":FOR Sl = 1 TO 100:NEXT SI:NEXT I 
CHAIN "MENUE" 


B.BAS: Einkünfte aus Land- und Forstwirtschaft 


1720 
1725 
1730 


1735 
1749 


1745 
1750 
1755 
1760 
1765 
1770 
1775 
1780 


1785 
1790 


1795 
1800 
1805 


1810 
1815 


1820 
1825 


1830 
1835 


1840 
1845 
1850 
1855 
1860 
1865 
1870 
1875 
1880 
1885 
1890 


1895 
1900 


1905 
1910 


1915 
1920 
1925 


1930 
1935 


1940 
1945 


1950 
1955 


1960 
1965 
19709 
1975 
1980 
1985 


1990 
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REM EINKUENFTE AUS LAND- UND FORSTWIRTWIRTSCHAFT 
COMMON Al), B(), Ct), DU), EU), MÜ), NÜ) 

HOME: PRINT"Einkünfte aus Land- und Forstwirtschaft 
FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

YVTAB 7: PRINT"Gewinne : sämtliche Gewinne ...... an 
<in DM> ..." 

PRINT"darin Veräußerungen : nach Par.14.14a ESTG 


<in DM> ..," 

PRINT"Angabe der Ermäßigung : 1. Betr.: Gewinn 83/84 
= <ın DNS ..." 

PRINT" - dito - : 1. Betr,.: Anteil am Betrag. <in 

DM> „.." 

PRINT" - dito - : 2. Betr.: Gewinn 83/84 .... <in 

Das en 

PRINT" - dito -— : 2. Betr.: Anteil am Betrag. <in 

Due 

VTAB 4:HTAB 65: INVERSE: PRINT"—> EHEMANN <—": NORMAL 


VTAB 7:HTAB 65: INPUT"",A(15) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 

tt A (15) 

HTAB 65: INPUT"",A(16) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 

"A (16) 

IF A(15)} = O0 THEN 1840 

HTAB 65:INPUT"",A(103) 

VTAB 9:HTAB 65:PRINT" ":VTAB 9:HTAB 65:PRINT USING 

A (103) 

HTAB 65: 1INPUT"",A(104) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 

A (104) 

HTAB 65: INPUT"",A(105) 

VTAB 11:HTAB 65: PRINT" ":YTAB 11:HTAB 65:PRINT USING 

"er A (105) 

HTAB 65:INPUT"",A(106) 

VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65:PRINT USING 

tr A106) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 

richtig ? <J/N> .... "5:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 

":E$:ELSE 1840 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-" :NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT " ";:GOTO 

1775 

VTAB 3:HTAB 65: PRINT SPC(15) 

IF A(1} = 1 THEN 1985: 

IF A(118) = 1 THEN 1985 

VTAB 22:PRINT SPC(79):HTAB 79: PRINT" " 

VTAB A:HTAB 65: INVERSE: PRINT"-—> EHEFRAU <—-": NORMAL 

VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70:PRINT 

SPC{10):VTAB 9:HTAB 70:PRINT SPC(10)} 

VTAB 10:HTAB 70:PRINT SPC{10):VTAB 11:HTAB 70: PRINT 

SPC(10):VTAB 12:HTAB 70:PRINT SPC(10) 

VTAB 7:HTAB 65: INPUT"",B{15) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 

"444er BB (15) 

HTAB 65: INPUT"",B(16) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65:PRINT USING 

ee BB (16) 

IF B(15) = 0 THEN 1960 

HTAB 65: INPUT"",B(103) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 

tr" BB (105) 

HTAB 65: INPUT"",B(104) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 

"+ BD 104) 

HTAB 65: INPUT"",B(105) 

VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65: PRINT USING 

DB (105) 

HTAB 65: INPUT"",B(106) 

VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65:PRINT USING 

tee" BB (106) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben ‚ 

richtig ? <J/N> .... '"5:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 

":ES:ELSE 1960 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-"':NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT " ";:GOTO 

1895 

VTAB 3:HTAB 65: PRINT" " 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC{16);:FOR S = 

1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
..":FOR SI = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 





# 


C.BAS: Einkünfte aus Gewerbebetrieb 


1995 
2000 
2005 
2010 
2015 
2020 
2025 
2030 
2035 


2040 
2045 


2050 
2055 
2060 
2065 
2070 
2075 
2080 
2085 
2090 


2095 
2100 


2105 
2110 


2115 
2120 
2125 
2130 
2135 


2140 


2145 


2150 
2155 
2160 
2165 
2170 


2175 
2180 
2185 
2190 
2195 
2200 


2205 
2210 


2215 
2220 


AR2D 
2230 


2235 
2240 
2245 
2250 
2255 
2260 
2265 


2270 
2275 


REM EINKUENFTE AUS GEWERBEBETRIEB 

COMMON A(}, BÜ), Cl), D(), El), MÜ), NO) 

HOME: PRINT"Einkünfte aus dem Gewerbebetrieb :" 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 7: PRINT"Gewinns : sämtliche Gewinne ......:+- 
<in DM> ..." 

PRINT"darin Veräußerungen : nach Par.16 u. 17 ESTG 
re EIN DEM..." 

VTAB A:HTAB 65: INVERSE: PRINT"--> EHEMANN <--": NORMAL 
VTAB 7:HTAB 65: INPUT"",A(20) 

VTAB 7:HTAB 65: PRINT" ":VTAB. 7:HTAB 65: PRINT USING 
Ve A (20) 

HTAB 65: INPUT"",A(21) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 
"Erster Al2]) i 
VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> .... ";:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 2050 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0OTO 2030 
VTAB 3:HTAB 65: PRINT SPC(15) 

IF A{l) =,1 THEN 2140 

VTAB 22:PRINT SPC(79) :HTAB 79: PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <—": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70:PRINT 
SPC({10) 

VTAB 7:HTAB 65: INPUT"",B(20) 

VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65: PRINT USING 
et BB (20) 

VTAB 8:HTAB 65: INPUT"",B({21) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 
er BB (21) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
riohtig ? <J/N> .... "::GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
u. ELSEF2115 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " ",:G0T0 
2095 

VTAB 3:HTAB, 65: PRINT SPC(15) 


FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FORS = 

1 TO 100:NEXT S:VTAB 1:HTAB 60:PRINT"Bitte warten 
..":FOR SI = 1 TO 100:NEXT S1:NEXT I 

CHAIN "MENUE" 


D.BAS: Einkünfte aus selbständiger Arbeit 


REM EINKUENFTE AUS SELBSTAENDIGER ARBEIT 

COMMON Al), B(), Cl), DÜ), EU), MÜ), NÖ 

HOME: PRINT"Einkünfte aus selbständiger Arbeit :" 

FOR I = 1 TO 79: PRINT"-";:NEXT I:PRINT 

VTAB 7:PRINT"Gewinn : aus freiberuflicher Arbeit <in 
DN> zu." 

PRINT"Gewinn : aus sonstiger Tätigkeit ... <in DM> 


PRINT"Werbungskosten : angefallene Werbungskosten 
<in DN> .„.." 

PRINT"dar.Veräußerungs-Gew. : nach Par.18 Abs.3 ESTG 
rs <ingDMo Ensn 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEMANN <—":NORMAL 
VTAB 7:HTAB 65: INPUT'"",A(25) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
Ve A (25) 

HTAB 65: INPUT"",A(26) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 
te" A (26) 

HTAB 65: INPUT'"",A(27) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65:PRINT USING 
ee A (27) 

HTAB 65: INPUT"",A(28) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 
ee A (28) 

VTAB 23:PRINT'"Eingabefehler : sind alle Angaben 
richtig ? <J/N> »... "::GET E$ 

IF E&$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 2235 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " "5 :GOT0 
. 2195 
VTAB 3:HTAB 65: PRINT SPC(15) 


IF A{l) = 1 THEN 2345 

VTAB 22:PRINT SPC(79):HTAB 79: PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"—> EHEFRAU <—": NORMAL 
VTAB 7:HTAB 70:PRINT SPC{10):VTAB 8:HTAB 70:PRINT 
SPC{10):VTAB 9:HTAB 70:PRINT SPC{10):VTAB 10:HTAB 
70:PRINT SPC(10) 


Fr VE _ 


| 





2280 
ARES 


2290 
2295 


2300 
2505 


2310 
2315 


2320 
2325 
2330 
2355 
2340 


2345 


2350 


VTAB 7:HTAB 65: INPUT"",B(25) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65:PRINT USING 
ee BB (25) 

HTAB 65: INPUT"",B(26) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 
tree" ;B (26) 

HTAB 65: INPUT"",B(27) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
BT) 

HTAB 65: INPUT"",B(28) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65:PRINT USING 
"er" BB (2B) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
TIChtipga@a= JENS el GE TERS 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":;E$:ELSE 2320 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" NORMAL 

IF E$ = ''N" THEN VTAB 23:HTAB 79: PRINT " ";:G0T0 
2280 

VTAB 3:HTAB 65: PRINT SPC(15) 


FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
‚„.„.":FOR Sl = 1 TO 100:NEXT S1I:NEXT I 

CHAIN "MENUE" 


E.BAS:; Einkünfte aus nichtselbständiger Tätigkeit 


2355 
2360 
2365 


2570 
2375 


2380 
2385 
2390 
2395 
2400 
2405 


2410 
2415 


2420 
2425 


2450 
2435 


2440 
2445 
2450 
2455 
2460 
2465 
2ATO 
2475 
2480 
2485 


2490 
2495 


2500 
2505 


2510 
2515 


2520 
2525 


2550 
2535 
2540 
2545 
2550 


2555 


2560 


REM EINKUENFTE AUS NICHTSELBSTAENDIGER TAETIGKEIT 

COMMON A(), B(), Ci). DU), Ei), MÜ), NÜ) 

HOME: PRINT"Einkünfte aus nichtselbständiger Arbeit 
«11 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 7:PRINT"Brutto-Arbeitslohn : 1fd. Arbeitslohn 
Era em Sin, DM> ..." 

PRINT"Bezüge : Versorgungsbezüge ......... <in DM> 


" 
zer # 


PRINT"Kosten : Werbungskosten „.....rcrHrr <in DM> 


it 
i 


PRINT"Beträge für : ALG, SWG, KUG oder ALB .... <in 
EM>..." 

VTAB 4:HTAB 65: 1INVERSE: PRINT"-—-> EHEMANN <—":NORMAL 
VTAB 7:HTAB 65: INPUT"",A(30) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65:PRINT USING 
ee A (50) 

VTAB 8:HTAB 65: INPUT"",A(31) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65:PRINT USING 
ee AS] ) 

VTAB 9:HTAB 65: INPUT"",A(32) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
ee A (32) 

VTAB 10:HTAB 65: 1INPUT'"",A(67) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65:PRINT USING 
et A (67) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
richtiew> <I/N>W.M, ‚n' GET ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";ES:ELSE 2440 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0T0O 2400 
VTAB 3:HTAB 65:PRINT SPC(15) 

IF A(l} = 1 THEN 2555 

VTAB 22: PRINT SPC(79}:HTAB 79: PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <—": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70:PRINT 
SPC(10) 

VTAB 9:HTAB 70:PRINT SPC(10):VTAB 10:HTAB 70:PRINT 
SPC(10) 

VTAB 7:HTAB 65: INPUT"",B(30) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
ee ;B (50) 

VTAB 8:HTAB 65: INPUT"",B({31) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 
et B(31) 

VTAB 9:HTAB 65:INPUT"",B(32) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
IB (32) 

VTAB 10:HTAB 65: INPUT"",B{67) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 
rer BB (67) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> „... ";:GET E$ 
IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 2530 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-'':NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT " ";:GOTO 
2490 


VTAB 3:HTAB 65: PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
‚...":FOR Si = 1 TO 100:NEXT SI:NEXT I 

CHAIN "MENUE'" 





F.BAS: Einkünfte aus Kapitalvermögen 


2565 REM EINKUENFTE AUS KAPITALVERMOEGEN 
2570 COMMON Al), B(), Cl). D(), EU), MÜ), NÜ) 
2575 HOME: PRINT"Einkünfte aus Kapitalvermögen :" 


2580 FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

2585 VTAB 7:PRINT"Einnahmen : aus dem Kapitalvermögen „.. 
<in DM> „.„." 

2590 PRINT"Werbungskosten : durch das Kapitalvermögen „ 
<in DM> .„„." 


2595 VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEMANN <—": NORMAL 

2600 VTAB 7:HTAB 65: INPUT"",A(35) 

2605 VTAB 7:HTAB 65:PRINT" ":VTAB 7:HTAB 65: PRINT USING 
tete" A (35) 

2610 HTAB 65: INPUT"",A(36)} 

2615 VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 
te A (35) 

2620 VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> aaa "::GET E$ 

2625 IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
:ES:ELSE 2620 

2630 IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

2635 IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT" ";:G0OTO 2600 

2640 VTAB 3:HTAB 65: PRINT SPC(15)} 

2645 IF All) = 1 THEN 2710 

2650 VTAB 22: PRINT SPC(79):HTAB 79: PRINT" " 

2655 VTAB A4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <—": NORMAL 

2660 VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70: PRINT 
SPC(10) 

2665 VTAB 7:HTAB 65: INPUT"",B(35) 

26570 VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
BB (35) 

2675 HTAB 65:INPUT"",B(36) 

2680 VTAB 8:HTAB 65: PRINT" ":VYTAB 8:HTAB 65: PRINT USING 
ee BC) 

2685 VTAB 23: PRINT"Eingabefehler : sind alle Angaben 


richtig ? <J/N>ii,. ";:GET'E$ 
2590 IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 2685 


2695 IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

2700 IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " ";:GOTO 
2665 

2705 VTAB 3:HTAB 65: PRINT SPC(15) 

2710 FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60:PRINT"Bitte warten 
„..":FOR SI = 1 TO 100:NEXT SI:NEXT I 

2715 CHAIN "MENUE" 


G.BAS: Einkünfte aus Vermietung und Verpachtung 


2720 REM EINKUENFTE AUS VERMIETUNG UND VERPACHTUNG 
2725 COMMON A(}, B{), Ci), Di), E(), M(), N) 
2730 HOME: PRINT"Einkünfte aus Vermietung und Verpachtung 
"::HTAB 69: INVERSE: PRINT"SEITE 1":NORMAL 
2735 FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 
2740 VTAB 7:PRINT"Einheitswert : 
selbstgen .Haus/Eigentumsw. <in DM> ..." 


2745 PRINT"Wohnzwecke : Wohnnutzung ....:2. ren... <in 
> lau! 

2750 PRINT"Selbstnutzung : Wohnnutzung in Monaten .;. 
<in MM> „.." 

2755 PRINT"Schuldzinsen : vor der Selbstnutzung „.-.. <in 
DM> u r- 

2760 PRINT"Schuldzinsen : bei Selbstnutzung ........ . <in 
DM> ::%, " 

2765 PRINT"A F A (insgesamt) : Absetzung für Abnutzung 
au <in DM> ..." 


2770 PRINT: PRINT"Wurde der Antrag auf Baugenehmigung nach 
dem 30.09.82 singe-" 

2775 FRINT"reicht u. das Gebäude bis 01.01.83 
fertiggestellt . <J/N> .„..." 

2780 PRINT: PRINT"sonstige Mieteinnahmen: andere 
Häuser /Wohnungen „.. <in DM> .,„,„" 

2785 PRINT"Werbungskosten : insgesamte Werbungskosten . 
<in .DM> eu 

2790 VTAB 4:HTAB 65: INVERSE: PRINT"—> EHEMANN <—": NORMAL 

2795 VTAB 7:HTAB 65: INPUT"",A(40) : 

2800 VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65:PRINT USING 
ee AAO) 

2805 VTAB 8:HTAB 65: INPUT"",A(41)} 

2810 IF A(41) > 100 THEN 2805 

2815 VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65:PRINT USING 
A (4]) i 

2820 VTAB 9:HTAB 65:INPUT"",A(42) 

2825 IF A(42) > 12 THEN 2820 

2830 VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
A [A2) 

2835 IF A{42) > 12 THEN 2820 

2840 HTAB 65: INPUT"",A(43) 

2845 VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 
ee A (A5) 

2850 HTAB 65: INPUT"",A[44) 


49 











2855 


2860 
2865 


2870 
2875 


2880 
2885 
2390 


2895 
2900 


2905 
2910 
2915 
2920 
2925 
2930 
2935 
2940 
2945 
2950 
2955 


2960 
2965 


2970 
2975 
2980 
2985 
2990 
2995 


3000 
3005 


3010 
3015 


3020 
3025 


3030 
3055 


3040 
5045 
3050 


3055 
5060 


3065 
3070 
3075 
3080 


3085 
3090 


3095 
3100 


3105 
3110 
3115 
3120 
3125 
3130 
3135 
Ss140 
3145 
3150 
3155 


3160 


50 


VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65: PRINT USING 
et" A (AA) 

HTAB 65: INPUT"",A(45) 

VTAB 12:HTAB 65: PRINT" ":VYTAB 12:HTAB 65: PRINT USING 
tr A (45) 

VTAB 15:HTAB 65:GET Y$ 

IF Y$ = ""J" OR Y$ = "N" THEN VTAB 15:HTAB 65: PRINT" 
":Y$:ELSE 2870 

IF Y$ = "J" THEN A(49) = 1 

VTAB 17:HTAB 65: INPUT"",A(46) 

VTAB 17:HTAB 65: PRINT" ":VTAB 17:HTAB 65: PRINT USING 
tt A (46) 

HTAB 65: INPUT"",A(47) 

VTAB 18:HTAB 65: PRINT" ":VTAB 18:HTAB 65: PRINT USING 
ee" A (47) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 


richtig ? <J/N> .... "::GET E$ 
IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 2905 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT '" ",:G0T0 
2795 
VTAB 3:HTAB 65: PRINT SPC(15) 


IF A{l1) = 1 THEN 3090 

VTAB 22: PRINT SPC(79):HTAB 79: PRINT" " 

VTAB 4:HTAB 65: INVERSE:PRINT"--> EHEFRAU <—": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):YTAB 8:HTAB 70: PRINT 
SPC(10):VTAB 9:HTAB 70: PRINT SPC{10) 

VTAB 10:HTAB 70: PRINT SPC{10):VTAB 11:HTAB 70: PRINT 
SPC(10):VTAB 12:HTAB 70:PRINT SPC(10) 

VTAB 15:HTAB 70:PRINT SPC(10):VTAB 17:HTAB 70: PRINT 
SPC(10):VTAB 18:HTAB 70:PRINT SPC(10) 

VTAB 7:HTAB 65: INPUT"",B(40) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
et" BB (A40) 

VTAB 8:HTAB 65:INPUT"",B{41) 

IF B(4l) > 100 THEN 2970 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 
er BA] ) 

VTAB 9:HTAB 65: INPUT"",B{42) 

IF B(42) > 12 THEN 2985 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
tt BB [A2) 

HTAB 65: INPUT"",B{43)} 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65:PRINT USING 
er BB (A453) 

HTAB 65:INPUT"",B(44) 

VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65: PRINT USING 
+ IB (44) 

HTAB 65: INPUT"",B(45) 

VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65: PRINT USING 
ee BB (45) 

VTAB 15:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 15:HTAB 65: PRINT" 
ng ELSEIS030 

IF Y$ = "J" THEN B(49) = 1 

VTAB 17:HTAB 65: INPUT"",B(46) 

VTAB 17:HTAB 65: PRINT" ":VTAB 17:HTAB 65:PRINT USING 
tet" BB (46) 

HTAB 65: INPUT"",B(47) 

VTAB 18:HTAB 65: PRINT" ":VTAB 18:HTAB 65: PRINT USING 
er BAT) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
TLCcht ip J/ NS: -GETIES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 3065 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 


IF E$ = "N" THEN VTAB 23:HTAB 79:PRINT " ";:G0T0 
2960 
VTAB 3:HTAB 65: PRINT SPC(15} 


HOME: PRINT"Einkünfte aus Vermietung und Verpachtung 
";:HTAB 69: INVERSE: PRINT"SEITE 2": NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 7:PRINT"Erhöhte Absetzungen : nach Par. 7b ESTG 

ee ee Sl NS N " 

PRINT: PRINT"Erfolgte der Bauantrag oder der Beginn 

der Bauarbeiten oder" 

PRINT"der Erwerb des Vertrages nach dem 29.07.1981 

mstnaanı SU/ND ann -" 

VTAB 4:HTAB 65: 1INVERSE: PRINT"-—-> EHEMANN <—" 

VTAB 5:HTAB 65: PRINT"--> EHEFRAU <—!"':NORMAL 

VTAB 7:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 7:HTAB 65: PRINT" 

":Y$:ELSE 3125 ° 

IF Y$ = "N" THEN 3155 

VTAB 10:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 10:HTAB 65: PRINT" 

":Y$:ELSE 3140 

IF Y$ = "J" THEN A(48) = A(4) - 1:IF A(48) <=0 

THEN A(48) = 0 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 

richtig ? <J/N> „... "5:GET ES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 

wurES ELSE 3155 


\ 


3165 


3170 


3175 


3180 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-!' : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT " ",:G0TO 

3125 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 

1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
..":FOR S1 = 1 TO 100:NEXT S1I:NEXT I 

CHAIN "MENUE" 


H.BAS: Sonstige Einkünfte 


3185 
3190 
3195 
3200 
3205 


3210 
3215 
3220 
3225 
3230 
3235 


3240 


"3245 


3250 
3255 


3260 
3265 


3270 
32758 
3280 
3285 
35290 
3295 


3300 
3305 


3310 


33515 
3320 


3325 
3330 


3355 
3340 


3345 
3350 


3355 
3360 
3365 
3370 


3375 
3380 


33585 


REM SONSTIGE EINKUENFTE 

COMMON Al), BÜ), Ct), Di}, Ei), MU), NÖ 

HOME: PRINT"Sonstige Einkünfte :" 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 7: PRINT"Einnahmen : nach Par.22 Nr.l u. la <in 
DM> u” 

PRINT"Werbungskosten : auf die Einnahmen ..... <in 
DM>M. .." 

PRINT"Einnahmen : sonstige Einnahmen .... <in DM> 
PRINT'"Werbungskosten : auf sonstige Einnahnen <in 
DM> ;;. ." 

VTAB 4:HTAB 65: INVERSE: PRINT"-—-> EHEMANN <—": NORMAL 
VTAB 7:HTAB 65: INPUT"",A(50) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
ee A (50) 

HTAB 65: INPUT"",A(51)} 

VTAB 8:HTAB 65: PRINT" ":VTAB B:HTAB 65: PRINT USING 
A (51) 

HTAB 65: INPUT"",A(52) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
ee A (52) 

HTAB 65: INPUT"", A(53) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65:PRINT USING 
ee A (52) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 


richtig ? <J/N>%... "::GET E$ 
IE E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
1:E$:ELSE 3270 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 3230 
VTAB 3:HTAB 65: PRINT SPC(15) 

IF A(l}) = 1 THEN 3380 

VTAB 22:PRINT SPC{79):HTAB 79: PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <—": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70: PRINT 
SPC(10):VTAB 9:HTAB 70:PRINT SPC(10):VTAB 10:HTAB 
70:PRINT SPC(10) 

VTAB 7:HTAB 65: INPUT"",B(50) 

VTAB 7:HTAB 65: PRINT" ":VYTAB 7:HTAB 65: PRINT USING 
BB 50) 

HTAB 65: INPUT"",B(51) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65:PRINT USING 
tt BB (5) 

HTAB 65: INPUT"".B(52) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65:PRINT USING 
he" ;B (52) 

HTAB 65: INPUT"",B(53) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 
"BB (53) i 

VTAB 23: PRINT"Eingabefehler : sind alles Angaben 
richtig ? <J/N> .... "::GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$S:ELSE 3355 ‚ 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0TO 3315 
VTAB 3:HTAB 65: PRINT SPC{15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
‚..":FOR Sl = 1 TO 100:NEXT SI:NEXT I 

CHAIN "MENUE" 


.BAS: Doppelbesteuerungsabkommen und außer- 


3390 


3395 
5400 


3405 
3410 


3415 


3420 


3425 


3430 
3435 


ordentliche Einkünfte 


REM DOPPELBESTEUERUNGSABKOMMEN UND AUSSERORDENTLICHE 
EINKUENFTE 

COMMON A(), B(), Cl), DÜ), El), MÜ), NÜ) 

HOME: PRINT"Doppelbesteuerungsabkomnen u. 
außerordentliche Einkünfte :" 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 7:PRINT"Steuerfrei : nach Doppelbesteurungsabk. 
<in DM> ı.." 

PRINT"darin Einkünfte : außerordentliche Einkünfte 
<in DN> u." 

PRINT"Entschädigungen : nach Par.24 Nr.1 ESTG ..... 
<in DM> ;.." 

PRINT"Nutzungsvergütungen : nach Par.24 Nr.3 ESTG 

ee cin’ DM m .'! 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEMANN <—!": NORMAL 
VTAB 7:HTAB 65:INPUT"",A(65) 


3440 


3445 
3450 


3455 
3460 


3465 
3470 


3475 
3480 
3485 
3490 
3495 
3500 
3505 


3510 
3515 


3520 


3525 


3530 
3535 


3540 
3545 


3550 
35005 


3560 
3565 
3570 
3575 


3580 
3585 


3590 


VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
ee A (65) 

HTAB 656: INPUT"",A(66) 

VTAB 8:HTAB 65: PRINT" '":VTAB 8:HTAB 65: PRINT USING 
A (665) 

HTAB 65:1INPUT"",A(60) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65:PRINT USING 
re A (60) 

HTAB 65: INPUT"",A(6]) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 
tt A (6) 

VTAB 23:PRINT"Eingabefehler : sind alle Angaben 
richtig ? <J/N> .... "'::GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 3475 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0TO 3435 
VTAB 3:HTAB 65: PRINT SPC(15) 

IF All) = 1 THEN 3585 

VTAB 22:PRINT SPC(79):HTAB 79: PRINT" " 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEFRAU <—-": NORMAL 
VTAB 7:HTAB 70:PRINT SPC(10):VTAB 8:HTAB 70: PRINT 
SPC(10):YTAB 9:HTAB 70:PRINT SPC{10):VTAB 10:HTAB 
T0:PRINT SPC(10) 

VTAB 7:HTAB 65: INPUT"",B(65) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
+ BB (65) 

HTAB 65: INPUT"",B(66) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 
et" ,B (66) 

HTAB 65: INPUT'"",B(60) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
tt BB (60) 

HTAB 65:INPUT"",B(61) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 
er BB (6) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 


richtig ? <J/N> .... ";:GET E$ 
IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":;E$:ELSE 3560 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0TO 3520 

VTAB 3:HTAB 65: PRINT SPC(15} 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 

1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
..":FOR SI = 1 TO 100:NEXT SI:NEXT I 

CHAIN "MENUE" 


J.BAS: Sonderausgaben 


3595 
3600 
3605 


3610 
3615 
3620 
3625 


3630 
3635 


3640 
3645 
3650 
3655 
5660 
3665 
3670 
3675 
3680 


3685 
3690 


3695 
3700 
3705 
3710 


3715 
3720 


3725 
3730 


3735 


REM SONDERAUSGABEN 

COMMON A{)., BÜ), CU), DÜ), EÜ), MÜ), NÜ) 

HOME: PRINT"Sonderausgaben : ";:HTAB 

69: INVERSE: PRINT"SEITE 1":NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 6:HTAB 65: INVERSE: PRINT"--> EHEMANN <-—-": NORMAL 
VTAB 7:PRINT"Arbeitnehmer-Anteil : zur ges. 
Rentenversicherung <in DN> ,„.." 

PRINT"Arbeitgeber -Anteil : zur ges. 
Rentenversicherung <in DM> ..." 

PRINT:HTAB 65: INVERSE: PRINT"—-> EHEFRAU <—-":NORMAL 
PRINT"Arbeitnehmer-Anteil : zur ges. 
Rentenversicherung <in DM> ..." 

PRINT"Arbeitgeber -Anteil : zur ges. 
Rentenversicherung <in DM> ..." 

PRINT:HTAB 65: INVERSE: PRINT"--> EHEMANN <—" 

HTAB 65: PRINT"—> EHEFRAU <--" : NORMAL 
PRINT"Sonderausgaben : unbeschränkt, ohne Spenden 
<in’DH> FR ." 

PRINT"Vorsorgeaufwendungen : abzugsfähige 
Versicherungen <in DM> „.," 

PRINT"Bausparbeiträge : lt. Bausparvertrag <in DM> 


n 
va 


IF (A(30) + A{31)) = 0 THEN 3695 

VfAB 7:HTAB 65: INPUT"",A(72) 

VTAB 7:HTAB 656: PRINT" ":VTAB 7:HTAB 65: PRINT USING 
re A (T72) 

HTAB 65: INPUT"",A(73) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65:PRINT USING 
A (75) 

IF A(l) = 1 THEN 3725 

IF (B(30) + B(31)} = 0 THEN 3725 

VTAB 11:HTAB 65: INPUT"",B(72) 

VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65: PRINT USING 
tt (72) 

HTAB 65: INPUT"",B(73) 

VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65: PRINT USING 
tt (73) 

VTAB 16:HTAB 65: INPUT"",A(70) 

VTAB 16:HTAB 65: PRINT" ":VTAB 16:HTAB 65:PRINT USING 
A (70) 

HTAB 65: INPUT"",A(71) 





3740 


3745 
35750 


3755 
3760 
3765 
3770 
3775 
3780 
3785 
3790 
3795 
3800 
3805 
3810 
3815 


3820 
3825 


3850 
3835 


3840 
3845 


3850 


3855 
3860 


3865 
3870 


38765 
3880 
3885 


3890 
3895 


3900 
3905 
3910 
3915 
3920 
3925 


3930 
3955 


3940 
3945 
3950 
3955 
3960 
3965 
3970 
3975 
3980 
3985 


3990 
3995 


4000 
4005 
A010 


4015 
A0Rd 


4025 
A030 


4055 


VTAB 17:HTAB 65: PRINT" ":VTAB 17:HTAB 65: PRINT USING 
er A (7]) 

HTAB 65: INPUT"",A(74) 

VTAB 18:HTAB 656: PRINT" ":VTAB 18:HTAB 65: PRINT USING 
"A (74) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
glehtie TEA ND 2. N SGETIES 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":ES:ELSE 3755 

IF E$ = "N" THEN VTAB 5:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-": NORMAL j 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";: GOTO 
3670 

HOME: PRINT"Sonderausgaben : ";:HTAB 

69: INVERSE: PRINT"SEITE 2" :NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB A:HTAB 65: INVERSE: PRINT"—--> EHEMANN <-—" 

HTAB 65: PRINT"--> EHEFRAU <--":NORMAL 

VTAB 6: PRINT"Spenden : an politische Parteien .... 
<in DM> .,.." 

PRINT"sonstige Spenden : an andere Institutionen ... 
<in DM>=77, 

PRINT: PRINT"Sind in den sonstigen Spenden auch 
Spenden für wissenschaft-" 

PRINT"liche, staatspolitische u, als besonders 
förderungswürdig" 

PRINT"anerkannte Zwecke ? Bitte die Höhe angeben 
eh <in DM», .." 

PRINT:HTAB 30: INVERSE: PRINT"WAHLRECHT" : NORMAL 
PRINT'"Sie können die Begrenzung des Spendenabzugs 
wählen :" 

PRINT" <A> 5 % des Gesanmtbetrages der" Einkünfte" 
PRINT" <B> 2 v,T. der Summe der gesamten Löhne u. 
Gehälter" 

PRINT"—> <B> gilt nur für Arbeitgeber" 

PRINT: PRINT"Bitte wählen Sie <A> oder <B> 

en are ie dr late rufen Ser en A/B> 2. 4}! 

PRINT: PRINT"Es folgt nun die Gesamtsumme der Löhne 
u. Gehälter <in DM> ..." 

VTAB 6:HTAB 65:INPUT"",A(76)} 

VTAB 6:HTAB 65: PRINT" ":VTAB 6:HTAB 65: PRINT USING 
er A (765) 

HTAB 65: INPUT"",A(75) 

VTAB 7:HTAB 65: PRINT" '":VYTAB 7:HTAB 65: PRINT USING 
A (75) 

IF A(75) = 0 THEN 3915 

VTAB 11:HTAB 65: INPUT"",A(78) 

VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65: PRINT USING 
te A (78) 

VTAB 19:HTAB 65:GET Y$ 

IF Y$ = "A" OR Y$ = "B" THEN VTAB 19:HTAB 65: PRINT" 
";Y$:ELSE 3890 

IF Y$ = "A" THEN 3915 

VTAB 21:HTAB 65: INPUT"",A(77) 

VTAB 21:HTAB 65:PRINT" ":VTAB 21:HTAB 65: PRINT USING 
te A (77) 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
riehtig TmAJ/N> .... "Z:GETEES 

IF E$ = "J"" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 3915 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT'"-> 
KORREKTUR <-": NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 3855 
HOME: PRINT"Sonderausgaben : ";:HTAB 

69: INVERSE: PRINT"SEITE 3" :NORMAL 

FOR I = 1 TO 79: PRINT"-";:NEXT I: PRINT 

VTAB 5:HTAB 65: 1INVERSE: PRINT"—-> EHEMANN <—" 

HTAB 65: PRINT"—-> EHEFRAU <—":NORMAL 

VTAB B:PRINT"Verlustabzug : Verlust der Einkünfte 


ee, zu/NS 

PRINT"Verlust '80 : für das Jahr 1980 ......... <in 
DM> .„.." 

PRINT"Verlust '81 : für das Jahr 1981 .„..-»:-+»» <in 
DM> ..." 
PRINT"Verlust '82 : für das Jahr 1982 .....:... .‚ <in 
DM> 5. !" 

PRINT'"Verlust '83 : für das Jahr 1983 ........ .„ <in 
DM> .„.." 

PRINT"Verlust '85 : für das Jahr 1985 .......i. <in 


DM> “ sauer 


PRINT"VYerlust '86 : für das Jahr 1986 ......... <in 
DM> ..," 
VTAB 8:HTAB 65:GET Y$ 


IF Y$ = "J" OR Y$ = "N" THEN VTAB 8:HTAB 65: PRINT" 
".y$:ELSE 3990 

IF Y$ = "N" THEN 4065 

HTAB 65: INPUT"",A(80) 

VTAB 9:HTAB 65: PRINT" ":YTAB 9:HTAB 65: PRINT USING 
te A (0) 

HTAB 65: INPUT"",A(81) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65:PRINT USING 
Vet (81) 

HTAB 65: INPUT", A(82) 

VTAB 11:HTAB 65:PRINT" ":YTAB 11:HTAB 65:PRINT USING 
et A (82) 

HTAB 65: INPUT"",B(79) 


51 


m a in 


u 


Aal40 


A045 
4050 


4055 
4060 


4065 
A070 
4075 
4080 
4085 


4090 


4095 


VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65: PRINT USING 


BB (79) 
HTAB 65:INPUT"",B(80) 


VTAB 13:HTAB 65: PRINT" ":VTAB 13:HTAB 65: PRINT USING 


tt BO) 


HTAB 65: INPUT" 


VTAB 14:HTAB 65: PRINT" ":VTAB 14:HTAB 65: PRINT USING 


",B(81) 


tt BL) 


VTAB 23: PRINT" 


richtige EINS nr 


Eingabsfehler : 
"::GET E$ 


sind alle Angaben 


IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 4065 
IF E$ = "N" THEN VTAB 4:HTAB 65: INVERSE: PRINT"-> 


KORREKTUR <-": 


IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";: 


5990 


NORMAL 


VTAB 3:HTAB 65: PRINT SPC(15) 


FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC{16)::FOR S 


GOTO 


1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 


..":FOR SI = 1 TO 100:NEXT SI1:NEXT I 


CHAIN "MENUE'" 


K.BAS: Außergewöhnliche Belastungen 


4100 
4105 
4110 


4115 
4120 


4125 
4130 
4155 
A140 
4145 
4150 
4155 


4160 
4165 


A170 
4175 


4180 
4185 


4190 
4195 
4200 
4205 
4210 
4215 
4220 
4225 
4230 
4235 
4240 
4245 
4250 
4255 
4260 
4265 
4270 
4275 
4280 
4285 
4290 
4295 
4300 
4305 
4310 


4315 
A520 


52 


REM AUSSERGEWO 


COMMON Al), B{), Ci), DU), EU, MO, N 
HOME: PRINT" Außergewöhnliche Belastungen 


EHNLICHE BELASTUNGEN 


69: INVERSE: PRINT"SEITE 2": NORMAL 


FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 
VTAB 7: PRINT" Aufwendungen 


de 


PRINT"Aufwendung / DDR : 


zZ L0 DM 


PRINT"Aufwendung / Haushalt 


„rn <in DM> 


PRINT"Anzahl der Kinder : 


0,1 ern Ze 


VTAB 4:HTAB 65: INVERSE: PRINT'—> EHEMANN <—" 


HTAB 65: PRINT" 
VTAB 7:HTAB 65 


<in DM> nr 


-—-> EHEMANN <—": NORMAL 
:INPUT"",A(85) 


: nach Par.33 


„,:HTAB 


Pakete, Päckchen, Besuch .: 
‘ Gehilfin, Heim, Pflege 


mit Unterhaltszahlungen . 


VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65:PRINT USING 
tt A (55) 


HTAB 65: INPUT" 


",A(86) 


VTAB 8:HTAB 65: PRINT" '"':VTAB 8:HTAB 65:PRINT USING 
Vetter" A (86) 


HTAB 65: INPUT" 


",A(88) 


VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 
te A (88) 


HTAB 65: INPUT" 


",A(89) 


VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65:PRINT USING 
ee A(59) 


VTAB 23: PRINT" 


richtig ? sJ/N> 


Eingabefehler : 
1::GET E$ 


sind alle Angaben 


IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 


";ES: ELSE 4190 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 


KORREKTUR <-": 


IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";: 


4150 


HOME: PRINT"Außergewöhnliche Belastungen : 


69: INVERSE: PRI 


NORMAL 


NT"SEITE 2":NORMAL 


GOTO 


tt» :HTAB 


FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 
U=0 
VTAB 7:PRINT"Sind Aufwendungen für Unterhalt oder 


Berufsausbildung für" 
PRINT"Personen entstanden, für die kein Anspruch 


auf" 
PRINT"Kinderge 


la bestand 7 : 


DEINEM... 
: automatische Anzeige 


en ER De 
PRINT"Aufwendung : 
DM>n na: 


PRINT"Unterhaltsaufwendung : 


ern Zins DM. a 


PRINT"Einkünfte u. Löhne : 


Person <in DN> .„„." 
PRINT"Zeitraum : 


VTAB 4:HTAB 65: INVERSE: PRINT"——> EHEMANN <—" 
HTAB 65: PRINT"—> EHEFRAU <—":NORMAL 


VTAB 9:HTAB 65:GET Y$ 


Höhe des Unterhalts 


Unterstützungszeit ({Mon.) 


dritter Personen 


für die unterstützte 


. <in MN> 


IF Y$ = "J" OR Y$ = "N" THEN VTAB 9:HTAB 65: PRINT" 


";Y$:ELSE 4275 
U=0 

IF Y$ = "N" THEN 4475 
U=U+rl 

VTAB 11:HTAB 78:PRINT U 


VTAB 12:HTAB 65: INPUT"",U1 


VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65:PRINT USING 


et Ol 
HTAB 65: INPUT"",U2 


VTAB 13:HTAB 65: PRINT" ":VTAB 13:HTAB 65:PRINT USING 


te 2 





4525 
43530 


4535 
43540 
43545 


4350 
4555 
4360 
4365 
4370 
4375 
4380 


4385 


4590 


4595 


4400 


4405 
4410 


4415 
4420 
4425 
4450 


4435 
4440 
4445 
4450 
4455 
A460 
4465 
A4TO 
4475 


4480 
4485 


4490 


4495 


4500 


4505 


4510 


4515 


4520 


4525 
A530 
4535 
4540 


4545 
4550 
4555 
A560 
4565 
4570 


4575 
4580 
4585 


4590 
4595 


4600 
4605 


4610 
4615 


AGRD 
4625 
4630 


4635 
4640 
4645 
4650 
4655 
A660 
4665 


HTAB 65: INPUT"",U3 
VTAB 14:HTAB 65: PRINT" ":VTAB 14:HTAB 65: PRINT 
ee UI 

VTAB 15:HTAB 65: INPUT"",U4 


IF 


U4 > 12 THEN 4555 


VTAB 15:HTAB 65: PRINT" ":VTAB 15:HTAB 65: PRINT 
ee VA 


D 
< 0 THEN U7 


IF (Ul + U2 = 0) THEN 4380 

UU = 3600: IF Ul < 3600 THEN UU = Ul 
uU5 = [U « v1 / (Ul + U2) 

U& = U3 — 4200:IF U6 < 0 THEN U6 = 
U7 = INT ((U5 - U6) » VAa/12):IF 07 
A(90) = A{90) + U7 


VTAB 17: PRINT"Abzugsfähig für : 


Pe ksonel Un . 
re" 07 


VTAB 18: PRINT"Abzugsfähig insgesant : 


Berechnung für 
"::HTAB 65: PRINT USING 


alle Personen ........ „"s::HTAB 65: PRINT USING 
ee; A (90) 


ul 


: 7 =0: 
VTAB 23: PRINT"Eingabefehler : 
richtig 7 <J/N> . 


=) 2 Stiel =0: 


wuU=D0 


=0: 


sind alle Angaben 
A"::GET E$ 


USING 


USING 


Berechnung 


6 =0:WV6 


IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
";E$:ELSE 4595 


IE 


E$ = "N" THEN A(90) = 0 


Ir E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-" :NORMAL 
IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0T0 4275 


VTAB 3:HTAB 65:PRINT SPC(15) 


VTAB 23:HTAB 79: PRINT" " 


VTAB 23 


IF 


nn Ba<Jl/Name. m 
E$ = "N" THEN 4475 


VTAB 22: PRINT SPC(79) 


VTAB 12:HTAB 70:PRINT SPC(10) 
HTAB 70: PRINT SPC(10) 
VTAB 14:HTAB 70:PRINT SPC(10) 
VTAB 15:HTAB 70:PRINT SPC(10) 
VTAB 17:HTAB 70:PRINT SPC{10) 


VTAB 13: 


GOTO 4295 


HOME: 


:PRINT"Unterstützung : 
";:GET E$ 


weitsrer Personen ? 


PRINT"Außergewöhnliche Belastungen : 


69: INVERSE: PRINT'"SEITE 3": NORMAL 
FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 


VTAB 7: PRINT"Ausbildungsfreibetrag : 
beantragt ..... u. 
PRINT"Personen - Nr. 


«Nr, Dee |! 


PRI 


PRI 


NT"Anspruch Kindergeld : 


ie <<) / Nom). 
NT"Alter des Kindes : 


<J/N> au." 
PRINT"Wohnung d. Kindes : 


PRI 


PRI 


u) 
Un} 


PRINT"Kindergeldanspruch 
(Monate) 


ac A/BSr ei 
NT"Einkünfte d. Kindes : 


22 jngaDM>ze 
NT"BAFOEG : 


. <in NM> .„." 


a NS!" 
: automatische Anzeige .. 


BAFOEG Beträge ... 


für diese Person 


: im 18. Lebensjahr 


VTAB 4:HTAB 65: INVERSE:PRINT"--> EHEMANN <—" 
HTAB 65: PRINT"--> EHEFRAU <--": NORMAL 

VTAB 7:HTAB 65:GET Y$ 
Y$ = "J" OR Y$ = "N" THEN VTAB 7:HTAB 65: PRINT" 


IE 

";Y$:ELSE 4520 

U=0 

IF Y$ = "N" THEN 4780 


U=U+l 

VTAB 8:HTAB 78:PRINT U 
VTAB 9:HTAB 65:GET U$ 
uU$ = "J" OR U$ = "N" THEN VTAB 9:HTAB 65: PRINT" 
":U$:ELSE 4565 


IF 


IF U$ = "N" THEN 4685 
VTAB 10:HTAB 65:GET Y$ 
IF Y$ - gu OR Y$5 = ur 
";Y$:ELSE 4580 

VTAB 11:HTAB 65:GET U$ 
IF u$ = Ian OR u$ = "gıl 
"US$: ELSE 4590 


VTAB 12:HTAB 65: INPUT", 
VTAB 12:HTAB 65:PRINT" ":VTAB 12: 


et ul 
HTAB 65: INPUT"",U2 


VTAB 13:HTAB 65: PRINT" ":VTAB 13: 


2 


VTAB 14:HTAB 65: INPUT"", 


IF U3 > 12 THEN 4620 


VTAB 14:HTAB 65: PRINT" ":VTAB 14: 


tr O3 
IF Y$ = 


INT (U5 # U3 / 12) 
A(91) = A(91) + US 


= "N" AND U$ = "B'"' THEN UU 
IF Y$ = "3" AND U$ = "A" THEN UU 
= j" AND U$ = "B" THEN UU 

= Ul - 1200: IF U4 < 0 THEN V4 = 0 
U5 = UU - U4 - U2: IF US < 0 THEN U5 = 0 


1: :HTAB 


wurde einer 


ist das Kind 18 Jahre alt ? 
<A> Eltern, <B> auswärtig 


Bezüge, Lohn u. Gehalt 


THEN VTAB 10:HTAB 65: PRINT" 


THEN VTAB 11:HTAB 65: PRINT" 


u 


U3 


ua 


900 
1200 
2100 


HTAB 65: PRINT USING 


HTAB 65: PRINT USING 


HTAB 65: PRINT USING 


A670 


4675 


4680 
4685 


4690 


4695 
4700 


4705 
4710 
4715 
4720 


4725 
4730 
4735 
4740 
4745 
4750 
4755 
4760 
4765 
4770 
4775 
4780 


4785 
4790 


4795 


4800 


4805 
4810 
4815 
4820 


4825 
AB30 
4835 
A840 
4845 
AB50 


4855 
AB6O 
4865 


4870 
4875 


4880 
4885 
4890 
4895 
A900 
4905 
4910 


4915 
4920 


4925 
4930 
4935 


4940 
4945 


4950 
4955 
4960 
4965 
4970 


4975 


VTAB 17: PRINT"Abzugsfähig für : Berechnung für 
Bersornsi U EREM M.%... ";:HTAB 65: PRINT USING 
ee U 

VTAB 18: PRINT"Abzugsfähig insgesamt : Berechnung für 
alle Personen .........";:HTAB 65:PRINT USING 

A (9]) 

UW=0: 1-0: R=0:03=-0:V4=0:lU5=0 
VTAB 23: PRINT"Eingabefehler : sind alle Angaben 
TIchtiewim<J) /Namee 4 "GETEES 

IF E$ = "J"" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 4685 

IF E$ = "N" THEN A(91) = 0 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KÖRREKTUR <-":NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:GOTO 4535 
VTAB 3:HTAB 65:PRINT SPC{15} 

VTAB 23:HTAB 79: PRINT" " 

VTAB 23: PRINT"Ausbildungsfreibetrag : weitere 
Freibeträge ? ...... J/N> .... "::GET E$ 

IF E$ = "N" THEN 4780 

VTAB 22: PRINT SPC(79) 

VTAB 8:HTAB 70:PRINT SPC(10) 

VTAB 9:HTAB 70:PRINT SPC(10) 

VTAB 10:HTAB 70:PRINT SPC(10) 

VTAB 11:HTAB 70: PRINT SPC(10) 

VTAB 12:HTAB 70:PRINT SPC(10) 

VTAB 13:HTAB 70:PRINT SPC(10) 

VTAB 14:HTAB 70: PRINT SPC(10) 

VTAB 17:HTAB 70: PRINT SPC(10) 


GOTO 4555 

HOME: PRINT"’Außergewöhnliche Belastungen : ";:HTAB 
69: INVERSE: PRINT'"SEITE 4":NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 7:PRINT"Körperbehinderte : Pauschbetrag n. 
Batesäbe mm l/Noe 

VTAB 10: PRINT"Erwerbsunfähigkeit : Minderung ' 


ee gie <in run. ." 
PRINT"Erwerbsunfähigkeit : durch 
Blindheit/Hilfslosigk. «J/N> ...." 
PRINT"Hinterbliebenenbezug : laufender Bezug 


Der ee nom <J/N> rl 
VTAB 15: PRINT"Erwerbsunfähigkeit : Minderung 
ee er NE a 


PRINT"Erwerbsunfähigkeit : durch 
Blindheit/Hilfslosigk. <J/N> ...." 
PRINT"Hintsrbliebenenbezug : laufender Bezug 

Ze 2 a alle Re SJ/N>I aa 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEMANN <—" 

VTAB 5:HTAB 65: PRINT"—> EHEFRAU <—!" 

VTAB 9:HTAB 65: PRINT"--> EHEMANN <-——-" 

VTAB 14:HTAB 65: PRINT"—> EHEFRAU <--":NORMAL 

VTAB 7:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 7:HTAB 65: PRINT" 
";Y$:ELSE 4845 

IF Y$ ="N'"' THEN 4945 

VTAB 10:HTAB 65: INPUT"",A(93) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65: PRINT USING 
A (93) 

VTAB 11:HTAB 65:GET E$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 11:HTAB 65: PRINT" 
":E$:ELSE 4870 

IF E$ = "J" THEN A{93) = 300 

VTAB 12:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 12:HTAB 65: PRINT" 
":Y$:ELSE 4885 

IF Y$ = "J" THEN A(94) = 1 

IF A(l) = 1 THEN 4945 

VTAB 15:HTAB 65: INPUT"",B(93) 

VTAB 15:HTAB 656: PRINT" '':YTAB 15:HTAB 65 PRINT USING 
tn BB (93) 

VTAB 16:HTAB 65:GET B$ 

IF E$ = "J" OR E$ = "N" THEN VTAB 16:HTAB 65: PRINT" 
":E$:ELSE 4915 

IF E$ = "J" THEN B(93) = 300 

VTAB 17:HTAB 65:GET Y$ 

IF Y$ = "J" OR Y$ = "N" THEN VTAB 17:HTAB 65: PRINT" 
":Y$:ELSE 4930 

IF Y$ = "J" THEN A(94) = 1 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 


richtig ? <J/N> .... "::GET B$ 
IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 4945 


IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";: GOTO 

4845 

VTAB 3:HTAB 65: PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC{16};:FOR S = 

1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
..":FOR Sl = 1 TO 100:NEXT SI:NEXT I 

CHAIN "MENUE" 


L.BAS: Besondere Abzugsbeträge und ausländische 


4980 


4985 
4990 


4995 
5000 


5005 
5010 
5015 
5020 
5025 
5030 
5035 
5040 
5045 
5050 
5055 
5060 
5065 
5070 
5075 
5080 


5085 
5090 


Steuer 


REM BESONDERE ABZUGSBETRAEGE UND AUSLAENDISCHE 
STEUER 

COMMON Al), B(}, C{), DE), Ei), MÜ), NÜ) 

HOME: PRINT"Besondere Abzugsbeträge u. ausländische 
Steuer" 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 7: PRINT"’Ermäßigungsbetrag : nach Par.16,17 
Beriin FG .. <in DN> ..." 

PRINT"Ermäßigungsbetrag : als 
Arbeitgeber/Verm,-Leist.<in DM> „.." 

PRINT"Ausl. Einkünfte : nach Par.34c, Abs, L,II,V.. 
<in DM> .„.." 

PRINT"Ausl. Steuern : nach Par.,34c. Abs.1,II,V.. 
<in DN> ..." 

PRINT"Ausl. Steuern : nach Par.34c. Abs.Ill ..... 
<ınFDM> . 


PRINT"Begünstigste Einkünfte: für Erfinder 

geteilt <in DM> „„." 
PRINT"Ausbildungsplatzeink, : nach Par, 24b ESTG 
ED, SJ/N> Mi," 


PRINT: PRINT"Einkünfte aus der : 
Ausbildungsplatzschaffung . <in DM> ..," 

PRINT: PRINT"Einkünfte aus der : 
Ausbildungsplatzschaffung . <in DM> ..." 

HTAB 30: INVERSE: PRINT"WAHLRECHT" : NORMAL 

PRINT" <A> Abzug von der EST nach Par. 34c I" 
PRINT" <B> Abzug vom Gesamtbetrag d. Einkünfte nach 
Par.34c II" 

PRINT"Bitte hier gingseben : Ihre Wahl <A> oder <B> 
ee <A/B2 .." 

VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEMANN <—" 

HTAB 65: PRINT'"—> EHEFRAU <—!" 

VTAB 14:HTAB 65: PRINT"— > EHEMANN <—" 

VTAB 16:HTAB 65: PRINT"--> EHEFRAU <--" : NORMAL 

VTAB 7:HTAB 65: INPUT"",At95) 

VTAB 7:HTAB 65: PRINT" ":VTAB 7:HTAB 65: PRINT USING 


ee A (95) 


5095 
5100 


5105 
5110 


5115 
5120 


5125 
5150 


5155 
5140 


5145 
5150 


5155 
5160 
5165 


5170 
5175 
5180 
5185 
5190 
5195 


5200 
5205 


5210 


5215 
6220 


5225 
5230 


9235 


HTAB 65: INPUT"",A(96) 

VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65: PRINT USING 

A (96) 

HTAB 65: INPUT"",A(97) 

VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65: PRINT USING 

ee A (97) 

HTAB 65: INPUT'",A(98) 

VTAB 10:HTAB 65: PRINT" ":VTAB 10:HTAB 65:PRINT USING 

tt A (98) 

HTAB 65: INPUT"",A(100) 

VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65:PRINT USING 

tt A (100) 

HTAB 65: INPUT'"",A(102) 

VTAB 12:HTAB 65:PRINT" ":VTAB 12:HTAB 65: PRINT USING 

A (102) 

VTAB 13:HTAB 65:GET Y$ 

IF Y$ = "3" OR Y$ = "N’" THEN VTAB 13:HTAB 65: PRINT" 

":Y$:ELSE 5145 

IF Y$ = "N" THEN 5185 

VTAB 15:HTAB 65:1INPUT"",A(101) 

VTAB 15:HTAB 65: PRINT" ":VTAB 15:HTAB 65:PRINT USING 

ht A (101) 

IF A(l) = 1 THEN 5185 

VTAB 17:HTAB 65: INPUT"",B(101) 

VTAB 17:HTAB 65: PRINT" ":VTAB 17:HTAB 65: PRINT USING 

Kette B(101) 

IF A{97) = 0 AND A(98) = 0 THEN 5205 

VTAB 21:HTAB 65:GET Y$ 

IF Y$ = "A" OR Y$ = "B" THEN VTAB 21:HTAB 65: PRINT" 

":Y& ELSE 5185 

A(99) = 1: IF Y$ = "B" THEN A(99) = 2 

VTAB 23: PRINT"Eingabefehler : sind alle Angaben 

richtig ? <J/N> 2. "5:GET E$ 

IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 

KORREKTUR <-" : NORMAL 

IF E$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0TO 5085 

IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 

":E$:ELSE 5205 

VTAB 3:HTAB 65: PRINT SPC(15) 

FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FORS = 

1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 
..":FOR Sl = 1 TO 100:NEXT SI:NEXT I 

CHAIN "MENUE" 


M.BAS: Angaben für die An- und Abrechnung 


5240 
5245 
5250 
5255 
5260 


5265 


REM ANGABEN FUER DIE AN- U, ABRECHNUNG 
COMMON Al), BÜ), Ci), DUO), EU). MÜ), NO) 


HOME: PRINT" Einkünfte für An- u. Abrechnung :'": NORMAL 
FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 7:PRINT"Angaben : An- u, Abrechnung .;.....- Ti 
<J/N> u." 

PRINT"Lohnsteuer : Gesamt-Lohnsteuer ‚......... sin 
DM 


53 


oo 


5270 PRINT"Kirchensteuer : evangelische Kirche ....... 
<in DM> ..." 

5275 PRINT"Kirchensteuer : katholische Kirche .....,. in 
Du a 

5280 PRINT'"Kapitalertragssteuer : insgesamt 
mn cm... <in DM .„.." 

5285 PRINT'"Körperschaftssteuer : anrechenbare Steuer 
er Fe <in DN> ..." 

5290 PRINT"Einkommenssteusr : vorausgezahlte Beträge .... 
<in DM> .,.." 

5295 PRINT"Kirchensteuer : vorausgezahlte Beträge ev. <in 
DM> „.." 

5300 PRINT'"Kirchenstsuer : vorausgezahlte Beträge rk. <in 
DZ..." 


5305 VTAB 4:HTAB 65: INVERSE: PRINT"--> EHEMANN <—" 

5310 HTAB 65: PRINT'"—> EHEFRAU <- 

-'!: NORMAL 

5315 VTAB 7:HTAB 65:GET Y$ 

5320 IF Y$ = "J" OR Y$ = "N" THEN VTAB 7:HTAB 65: PRINT" 
";Y$:ELSE 5315 

5325 IF Y$ = "N" THEN 5440 

5330 IF A(30) = 0 AND A{31) = O AND B(30) = 0 AND B(31) = 
O THEN 5375 

5335 VTAB 8:HTAB 65: INPUT"",A(110) 

5340 VTAB 8:HTAB 65: PRINT" ":VTAB 8:HTAB 65:PRINT USING 
Ve A110) 

5345 IF A(3) < > 1 AND B(3) < > 1 THEN 5560 

5350 VTAB 9:HTAB 65:INPUT"",A(111) 

5355 VTAB 9:HTAB 65: PRINT" ":VTAB 9:HTAB 65:PRINT USING 
ee A111) 

5360 IF A{3) < > 2 AND B(3}) < > 2 THEN 5375 

5365 VTAB 10:HTAB 65:INPUT"",A{(112) 

5370 VTAB 10:HTAB 65:PRINT" ":VTAB 10:HTAB 65: PRINT USING 
Ge A112) 

5375 IF A(35) + B(35) = 0 AND A(36) + B(36) = O THEN 5400 

5380 VTAB 11:HTAB 65: INPUT"",A(113) 

5385 VTAB 11:HTAB 65: PRINT" ":VTAB 11:HTAB 65:PRINT USING 
et A115) 

5390 VTAB 12:HTAB 65: INPUT"",A(114) 

5395 VTAB 12:HTAB 65: PRINT" ":VTAB 12:HTAB 65: PRINT USING 
Ver A (114) 

5400 VTAB 13:HTAB 65:1INPUT"",A(115) 

5405 VTAB 13:HTAB 65: PRINT" ":VTAB 13:HTAB 65: PRINT USING 
ee A115) 

5410 IF A(3) < > 1 AND B(3) < > 1 THEN 5425 

5415 VTAB 14:HTAB 65:INPUT"",A(116) 

5420 VTAB 14:HTAB 65: PRINT" ":VTAB 14:HTAB 65: PRINT USING 
A (116) 

5425 IF A(3) < > 2 AND B(3) < > 2 THEN 5440 

5430 VTAB 15:HTAB 65: INPUT"",A{117) 

5435 VTAB 15:HTAB 65: PRINT" ":VTAB 15:HTAB 65: PRINT USING 
er A117) 

5440 VTAB 23: PRINT"Eingabefehler : sind alle Angaben 


richtig ? <J/N> .... ";:GET E$ 
5445 IF E$ = "J" OR E$ = "N" THEN VTAB 23:HTAB 65: PRINT" 
":E$:ELSE 5440 


5450 IF E$ = "N" THEN VTAB 3:HTAB 65: INVERSE: PRINT"-> 
KORREKTUR <-"': NORMAL ; 

5455 IF E&$ = "N" THEN VTAB 23:HTAB 79: PRINT" ";:G0OTO 5315 

5460 VTAB 3:HTAB 65: PRINT SPC(15) 

5465 FOR I = 1 TO 3:VTAB 1:HTAB 60:PRINT SPC(16);:FOR S = 
1 TO 100:NEXT S:VTAB 1:HTAB 60: PRINT"Bitte warten 

..":FOR Sl = 1 TO 100:NEXT S1:NEXT I 
5470 CHAIN "MENUE' 


N.BAS: Rechenteil 


5475 REM RECHENTEIL 

5480 COMMON A(), B(), Ci), D(Ü), El), MÜ), NÖ) 

5485 IF A{118) = 1 THEN A(l) = All) + A(118) 

5490 REM EINKUENFTE AUS LAND- U. FORSTWIRTSCHAFT 

5495 C(1) = INT{A(15)): D(1) = INT(B(15)) 

5500 REM EINKUENFTE AUS DEM GEWERBEBETRIEB 

5505 C(2) = INT(A(20})): D{2) = INT(B(20)}) 

5510 REM EINKUENFTE AUS SELBSTAENDIGER ARBEIT 

5515 C{3) = INT{A(25) + A(26) - A(27)): D(3) = INT(B(25) 
+ B(26) - B{27)) 

5520 REM EINKUENFTE AUS NICHTSELBSTAENDIGER ARBEIT 

5525 C(4) = INT(A(30) + A(31)): D(4) = INT{B(30) + B{31)) 

5530 V = INT(40 « A(31) / 100 + .5): IF V > 4800 THEN V = 


4800 
5535 Vi = INT(40 « B{31) / 100 + .5): IF V1 > 4800 THEN 
Vl = 4800 
5540 C(4) = C{4) - V - 600 - 480: D(4) = D(4) - VI - 600 
- 480 
5545 IF C{4) < O THEN C(4) = 0 
5550 IF D{4) < 0 THEN D(4) = 0 


5555 IF A(32) < 564 AND A(32) > C(A) THEN 5575 

5560 IF A(32) < 564 THEN C(4) = C(4) - 564: MM = 1: IF 
c(4) < 0 THEN C(4) = 0 

5565 IF MM < > 1} THEN 5575 

5570 GOTO 5580 

5575 C(4) = INT(C(4) -— A(32)) 

5580 IF B(32) < 564 AND B(32) > D(4) THEN 5600 


54 





5585 


5590 
5595 
5600 
5605 
5610 


5615 
5620 


5625 
5650 


5635 
5640 


5645 
5650 
5655 
5660 
9665 
5670 
5675 
5680 
5685 
5690 
5695 
5700 
5705 
5710 
5715 
5720 
5725 
5750 
5735 
5740 
5745 


5750 


5755 
5760 
5765 
5770 


5775 
5780 
5785 


5790 
5795 
5800 
5805 
5810 
5815 
5820 


5825 


5830 
5835 
5840 
5845 
5850 
5865 
5860 
5865 
5870 
6875 
5880 
5885 
5890 
5895 
5900 
5905 
5910 
5915 
5920 
5925 
5930 
5935 
5940 
5945 
5950 


5955 
5960 
5965 
5970 
5975 
5980 


5985 
5990 
5995 


IF B(32) < 564 THEN D(4) = D(4) - 564: NN = li: IF 
D(4) < O0 THEN D(4) = 0 

IF NN < > 1 THEN 5600 

GOTO 5605 

D(4) = INT(D(4) - B(32)) 

REM EINKUENFTE AUS KAPITALVERMOEGEN 

IF A(35) = 0 AND B(35) = O AND A(36) = OÖ AND B(56} = 
D THEN 5805 

P= 100: IF All} = 2 THEN P = 200 

IF ((A(36) + B(36)} <= P) AND ((A(36) + B(36)) > 
(A(35) + B(35))) THEN KK = 1: GOTO 5655 

IF P< (A(36) + B(36)) THEN 5655 

c(5) = INT(A(35) - (P = A(35) / (A(35) + B(35)}) + 
.3) 

IF C{5) < O THEN C(5) 0 

D{5) = INT{B(35} - (P « B(35) / (A(35) + B(35))) + 
2) 

IF D(5) < O THEN D(5) 
GOTO 5665 

c(5) = INT(A(35) - A{36)): D(5) = INT(B(35) — B(36)) 


0 


IF KK = 1 THEN 5805 

IF A{l} = 1 THEN 5690 

IF C{5)} <= 0 AND D(5) <= 0 THEN 5715 
IF C(5) <= 0 AND D(5) > O0 THEN 5725 
IF C(5) > 0 AND D(5} <= 0 THEN 5745 
GOTO 5765 

so = 300 

IF C{5) < O0 THEN SO = 0: GOTO 5705 


IF C(5} < 300 THEN SO = C{5) 

c(5} = C(5) - SO 

GOTO 5790 

SO =0:5P=0 

GOTO 5790 

so = 0: SP = 600 

D(5) = D(5) - 600 

IF D(5) < 0 THEN D(5) = 0: GOTO 5790 


GOTO 5790 

so = 600: SP =.0 

(5) = C(5) — 600 

IF C{5) < O0 THEN C(5) = 0: GOTO 5790 
GOTO 5790 

SO = 300: SP = 300 

IF C{5) > 300 AND D(5) > 300 THEN C(5) 
D{5) = D(5) - 300: GOTO 5790 

IF C(5) < 300 AND D(5) < 300 THEN C(5) = 0: D(5) = 
0: GOTO 5790 

IF C{5) < 300 THEN SP = 300 - C{5): C(5) = 0: D(5) = 
D(5) —- 300 - SP: GOTO 5790 

SO = 300 - D(5): D(5) = 0: C(5}) = C(5) - 300 - SO: 
GOTO 5790 


c(5) — 300: 


IF (C{5} < 0) AND (SO > 0) THEN C(5) = 0 

IF (D(5) < O0) AND (SP > O0) THEN D(5) = 0 

GOTO 5805 ' 
REM EINKUENFTE AUS VERMIETUNG U. VERPACHTUNG . 
A= A(40) # 1.4 / 100 » A(4l) / 100 « Al42) / 12 

B= B(40) « 1.4 / 100 « B(41) / 100 = B(42) / 12 

C= A(44): IF (A(44) > A) THENC = A: IP A(49) = 1 


> 
THEN C = A(44): IF C > 10000 THEN C = 10000 

D = B(44): IF (B(44) > B) THEN D = B: IF B(49) 
THEN D = B(44): IF D > 10000 THEN D = 10000 
A=A-C:B=B-D 
C(6) = INT(A - A(43) 
D(6) = INT(B - B(43) 
REM SONSTIGE EINKUENFTE 

P = 200: Pl = 200 

IF A(5l) <= P AND A(51) > A(50) THEN 5875 
IF A(5l) > P THEN 5875 

c{7) = A(50) - P: IF C(T) < 0 THEN C(7) = 0 
GOTO 5880 

C{7) = A(50) - A(51) 

IF B{5l) <= Pl AND B(51) > B(50) THEN 5900 
IF B{51) > Pl THEN 5900 

D(7) = B(50) - Pl: IF D{7T) < 0 THEN D(7) = 0 
GOTO 5905 

D(7) = B(50) - B(51) 

c{7) = INT(C(T) + A(52) - A(53) + 5) 

D({7) = INT{D(7) + B(52) - B(53) + .5) 

REM GESAMTSUMME DER EINKUENFTE 
c(8} = 0: FORI=1T0 7: C(B) 
D(8) = 0: FOR I=1T0 7: D(B) 
REM BETRAG DER ALTERSENTLASTUNG 
IF A(2) <> 7 THEN 5965 

A= 40 » A(30) / 100 

B = C(l) + C(2) + C(3) + C(4) + C(5) + C(6) 

c{13) = A: IF B> 0 THEN C{13) = C(13) + B « 40 / 
100 

IF c(13) > 3000 THEN C{13) = 3000 

c(13} = INT(C(13)) 

IF B{2) <> 7 THEN 5995 

A = 40 = B(30) / 100 

B = D(1) + D(2) + D(3) + D(5) + D(6) 

D(13) = A: IF B > 0 THEN D(13) = D(13) + B » 40 / 
100 

IF D(13)} > 3000 THEN D(13) = 3000 

D{13} = INT(D(13)) 

REM AUZUGSBETRAG FUER AUSBILDUNGSPLATZSCHAFFUNG 


1 
r 


A(45) + Al46) — Al47) + ,5) 
B(45) + B(46) -— B(47) + .5} 


C(8) + C(I): NEXT I 
D(8) + D(I}: NEXT I 








6000 
6005 
6010 
6015 
6020 
6025 
6050 
6035 
5040 
6045 
6050 
6055 
6060 
6065 
6070 
6075 
6080 
6085 


6030 
6095 
6100 
6105 
6110 
6115 
6120 
6125 
6130 
6135 
6140 
6145 
6150 
6155 
6160 
6165 
6170 
6175 
6180 
6185 
6190 
6195 
6200 
6205 
6210 
6215 
E2RO 
6225 
6250 
62355 
6240 
6245 
6250 
6255 
6260 
6265 
6270 
6275 
6280 
6285 
6290 
6295 
6300 
6305 
6310 
6315 
6320 
6325 
63530 
6335 
63540 
6345 
6350 
6355 
6360 
6365 
6370 
6375 
6580 


6385 
63590 
6395 
6400 


6405 
6410 
6415 
6420 


6425 


6430 
6435 
6440 
6445 
6450 


C(14) = INT({A(101) + .5) 

D(14) = INT(B(101) + .5) 

REM FREIBETRAG FUER LAND- U. FORSTWIRTSCHAFT 
IF A(15) = 0 AND B(15) = 0 THEN 6070 


A = 2000: IF All) = 2 THEN A = 4000 

IF {c{1} < 0) OR (D{l) < 0) THEN 6040 
B=A«c(l) /(c(i) + D(l)) 
Green) 

IF D{l) <O THENB=A 

IF B> C(l) THENB= c(l) 
IFB<OTHENB=0 

IF C > D(l) THENC = D(]l) 
IFC<OTHENC=O0 

C(15) = INT(B + „5): D(15} = INT(C + ‚5) 


REM AUSLAENDISCHE STEUERN 

c{12) = INT(A(100)) 

IF A(99) = 2 THEN C(12) = C(12) + INT(A{98)) 

IF All) = 2 THEN D(12) = INT(C(12) / 2): Cc(12) = 
INT(C(12) /2 + .9) 

REM GESAMTBETRAG DER EINKUENFTE 


c(16) = C(8) - c(12) - c(13) - C(14) - C(16) 
D(16) = D(8) - D(12} - D(13) - D(14) - D(15) 
c(16) = C(16) + D(16) 

REM SONDERAUSGABEN OHNE VORSORGEPAUSCHALE 
REM SPENDEN 

SPp=0 

IF A(77) < > 0 THEN 6155 


A=5 / 100 « C{16) 

IFA<OTHNA=0 

B = A(78): IF (Al78) >2 #A) THENB= 2 # A 
C=A(75) - A(78): IF (C>A) THENC=A 

SP = INT(B + C + .5): GOTO 6170 

A=2 / 1000 « A(77) 

B= A(75): IF{B>A) THNB=A 

SP = INT(B + .5) 

A= A(76): P = 1800: IF All) = 2 THEN P = 3600 
IF A> P THEN A = P 


SP = INT(SP+A + 5) 
c(18) = INT(SP + A(70) + .5) 
P = 270: IF A(l) = 2 THEN P = 540 


IF C{18) < P THEN C{18) = P 

REM HOECHSTBETRAG 

A=-0:B=0D: Bl=-0: P=0: H=0 

N=0: M=0: N= A(73): M = B(73) 

A= A(7l) + A(72) + B(72) 

B=9 x» A(30) / 100: Bl = 9 « B{30) / 100 
IF A(30) > 62400! THEN B = 62400! = 9 / 100 
IF B(30) > 62400! THEN Bl = 62400! « 9 / 100 
IF A(73) = -1 THENB= 0: N=0 

IF B(73) = -1 THEN Bl =0: M=0O 

P= 3000: IF A(l) = 2 THEN P = 6000 
F=P-N-M 

IF A(72) =0 THENP=P-B 

IF B(72) =0 THENP=P- Bl 

IFP<O0 THENP=0 

IF (P>A&A) THENP=A 

H=P: A=A-P:B=0:Bil=0 

A=A+ A(74) 

P= 2340: IF A(l) = 2 THEN P = 4680 
P=P+H600 « A(l4} + 300 « A(5) 

IF (P > A) THEN H = H + A: GOTO 6320 
H=H+P:A=A-P 

P=P/2:k=&A/?2 
IFA<PTHENH=H+A 


IF (P<=A) THENH=H+P 

REM VORSORGEPAUSCHALE 

E(2) = H: REM HOECHSTBETRAG 

A= 40 « A(30) / 100: IF A > 3000 THEN A = 3000 

Al = 40 * B(30) / 100: IF Al > 3000 THEN Al = 3000 
IF Al2) <> 7 THENA=0O 

IF B{2) <> 7 THEN Al 
B = A(30) + A(31): Bl = B(30) + B{31) 

IF B= 0 AND Bl = 0 THEN 6570 

B=B-V-600 -A: IFEB<OTHENB=0 

Bl = Bl - Vl - 600 - Al: IF Bl <0O THEN Bl = 0 
IF B > 62400! THEN B = 62400! 

IF Bl > 62400! THEN Bl = 62400! 


DW © 


Kl=9/ 100 «BB: K2 =9 / 100 « Bl: K3 = 18 / 100 « 
B: K4 = 18 / 100 # Bl 

M=0: N=DdD 

IF A(73) <=0 THENM=1 

IF B{73) <=0 THENN=]1 

IF A{l) = 2 AND ((M+ N = 0} 0R (M+N = 2)) THEN 
6445 

IF All} = 2 ANDM = 1 AND N = 0 THEN 6475 

IF All} = 2 ANDM = 0 AND N = 1 THEN 6520 

REM VORSORGEPAUSCHALE FÜUER LEDIGE 


P = 2340 + 600 # A(4) + 300 & A(5): IFM = 1 THEN P 
= 1000 + 600 » A(4) + 300 * A(5) 

Pl 1170 + 300 » A(4) + 150 # A{(5): IFM = 1 THEN 
Pl = 1000 + 300 « A(4) + 150 « A(5) 

IF K1 < PTHENP=KI 

IF K1 < Pl THEN Pl = Kl 

GOTO 6560 

REM VORSORGEPAUSCHALE FUER BEIDE EHEGATTEN 

P = 4680 + 600 # Al4) + 300 « A(5): IFEM+N=2 





6455 


6460 
6465 
6470 
6475 


6480 


6485 


6490 


6495 


6500 


6505 


6510 
6515 
6520 


6525 


6530 


6535 


6540 


6545 


6550 


6555 
6560 
6565 


6570 


6575 
6580 
6585 
6590 
6595 
6600 
6605 
6610 
6615 
6620 
6625 
6650 
6655 
6640 
6645 
6650 
6655 
6660 
6665 
6670 
6675 
6680 
6685 
6690 
6695 
6700 
6705 
6710 
6715 
6720 
6725 
6730 


6735 


6740 


6745 
6750 
6755 
6760 
6765 
6770 
6775 
6780 
6785 
6790 
6795 
6800 
6805 
6810 


THEN P = 2000 + 600 «= A(4) + 300 « A(5) 

Pl = 2340 + 300 ® A(4) + 150 « A(5): IFM+ N=2 
THEN Pl = 2000 + 300 # A(4) + 150 « A{5) 

IF (KL +K2) <PTHENP=K1l + K2 

IF (Kl + K2) < PL THEN Pl =Kl + KR 

GOTO 6560 

REM VORSORGEPAUSCHALE FUER DEN STEUERPFLICHTIGEN 
EHEGATTEN 

Pl=0: Al =Kl: IF Kl > {1000 + 600 = A(4) + 300 « 
A(5)) THEN Al = 1000 + 600 = A{(4) + 300 = A(5) 

A2 = Kl: IF Kl > (1000 + 300 = A(4) + 150 « A(5)) 
THEN A2 = 1000 + 300 # A(4) + 150 « A(5) 

Tl =Al+A2 + KA: IF Tl > (4680 + 600 = Al4) + 300 
* A(5)) THEN Tl = 4680 + 600 # A(4) + 300 « A(5)} 

T2 = (Al + A2 + KA - 4680 - 600 # Al4) - 300 = Al5)) 
{ 2: IF T2 > (4680 + 600 « A(4) + 300 = A(5)} /2 
THEN T2 = (4680 + 600 = A(4) + 300 « A(5)) / 2 

Tl = Ti + T2: Al = Kl: IF Kl > (2000 + 600 # A(4) + 
300 # A(5)) THEN Al = 2000 + 600 # Al4) + 300 # A(5)} 
A2 = Kl: IF Kl > (2000 + 300 # A{4) + 150 = A(5)) 
THEN A2 = 2000 + 300 # A(4) + 150 # A(5} 

Al =Al+A2: P= Tl: IF Al > Tl THENP= Al 

GOTO 6560 

REM VORSORGEPAUSCHALE FÜUER DEN STEUERPFLICHTIGEN 
EHEGATTEN 

Pl=0: Al =K2: IF K2 > (1000 + 600 # A(4) + 300 # 
A(5)) THEN Al = 1000 + 600 = A(4) + 300 = A(5) 

A2 = K2: IF K2 > (1000 + 300 = A(4) + 150 « A{(5)} 
THEN AZ = 1000 + 300 # A(4) + 150 « A(5) 
T1=Al+A2 + Kö: IF TI > (4680 + 600 «= A(4) + 300 
* A(5))} THEN Tl = 4680 + 600 * A(4) + 300 # A{5) 

T2 = (Al +A2 + K3 - 4680 - 600 # Al4) — 300 « A(5)) 
/ 2: IF T2 > (4680 + 600 « Al4) + 300 # A(5}) / 2 
THEN T2 = (4680 + 600 « A{4) + 300 # A(5)) / 2 

Tl = Tl + T2: Al = Kl: IFK2 > (2000 + 600  Al4) + 
300 &= A(5})) THEN Al = 2000 + 600 #« A(4) + 300 = A(5) 
A2 = K2: IF K2 > (2000 + 300 # A(4) + 150 « A(5)) 
THEN AZ = 2000 + 300 # A(4} + 150 « A(5))} 

Al = Al + A2: P= Ti: IF Al > TLTHENP= Al 
P=iP#+ El 

VP = INT(P / 54) « 54: IF VP < 300 « A(l} THEN VP = 
300 #A(l)} 

IF (A{30) + A{31) + B(30) + B(31}) = 0 THEN VP = 300 
* All) 

E(3) = VP: REM VORSORGEPAUSCHALE 


C(19) = H: IF VP > H THEN C{19} = vP 
c{19) = INT(C(19) + ;5) 
REM FREIBETRAG FUER FREIBERUFLICHE 


Ar 0:EB 740 

IF A(25) < = C{18) - C(3) THEN 6615 
A= INT(A(25) «5 / 100 + 5) 

IF A > 1200 THEN A = 1200 

IF B{25) < = D(8} - D(3) THEN 6630 
B= INT(B(25) «5 / 100 + .5) 

IF B> 1200 THEN B = 1200 

IFA<O THENA=0 
IFB<0O0THENB=0 

cC{2l) =A+B 

REM AUSSERGEWOEHNLICHE BELASTUNGEN 
A=A(4) + A(5): B= All}: C = C(16) 


IFB=1ANDA=0ANDC < = 30000 THEND=5 
IFB= 1 AND A=0 AND C > 30000 THEND = 6 
IFB= 1 ANDA = 0 AND C > 100000! THEND= [17 
IF B=2ANDA=0 AND C < = 30000 THEND=4 
IFB=2ANDA=0 AND C > 30000 THEND=5 
IFB=2 ANDA= 0 AND C > 100000! THEND = 6 
IFA<=RANDA>0 AND C < = 30000 THEND = 2 
IFA<=2RANDA > 0 AND C > 30000 THEND=3 
IFA<=2 ANDA > 0 AND C > 100000! THEND = 4 
IFA>= 3 AND C <= 100000!-THEND = | 
IFA>= 3 AND C > 100000! THEND=2 


A=D x C(16) / 100 

IF A(85) = 0 THENA = 0 

IF (A(85) <= A) THEN A = A(55) 

E(5) =A 

REM AUSSERGEWOEHNLICHE BELASTUNGEN 
(DDR/HAUSHALTSHILFEN) 

C{22) = INT{A(85) - A + A(86) + A(B8) + A(B9) » 620 
+ A(90) + A(91) + .5) 

A = A(93): GOSUB 6745: A = B(93): GOSUB 6745: GOTO 
6805 


B=0 

IFA>= 25 AND A < = 34 THEN B = 600 
IFA>= 35 AND A< = 44 THEN B = 840 
IFA>=45 ANDA< = 54 THENB= 1110 
IFA>=55 AND A < = 64 THEN B = 1410 
IFA>=65 AND A< = 74 THEN B = 1740 
IFA>= 7175 ANDA< = 84 THENB = 2070 
IFA >= 85 AND A <= 90 THEN B = 2400 
IFA > = 91 AND A <= 100 THEN B = 2760 
IF A = 300 THEN B = 7200 
IFA=1THENB=B + 720 

G{22) = C(22) + B:RETURN 

A=-0:B=0 

C(24) = C(16) - C(18) - C(19) - C{21) - C(22): REM 


EINKOMMEN 


99 





6815 


6820 
6825 
6830 


6835 


6840 
6845 


6850 
6855 


6860 
6865 


6870 
6875 


6880 
6885 


6890 
6895 
5900 
6905 
6910 
6915 
6920 
6925 
6950 
6935 
6940 


6945 
6950 


6955 
6960 
6965 
6970 
6975 


6980 
6985 
6990 
6995 
7000 


7005 
7010 


7015 
7020 
7025 
7030 
7035 


7040 
7045 
7050 


7055 


7060 


7065 


7070 
7075 
7080 
7085 
7090 
7095 
7100 
7105 
110 
115 


7120 
7125 
7130 


7135 
7140 
7145 
7150 
7155 
7160 
7165 
7170 
7175 


96 


E(ll) = A(80): E{12) = A(81): E(13) = A(82): E(l4) = 
B(79): E(15) = B(80): E(16) = B(81) 


IF C(24) < = 0 THEN 6900 

c(23) = C(24) 

c(24) = C(24) - A(79): IF C(24) <= 0 THEN C(24) = 
0:G0TO 6900 

C(24) = C{24) - B(80): IF C(24) <= 0 THEN E(15) = 
E(15) + C(24): C(24) = 0: GOTO 6900 

E(15) =0 

c(24) = C{24) - A(80): IF C(24) <= 0 THEN E(ll}) = 
E(ll) + C(24): C(24) = 0: GOTO 6900 

E{11l})=0 

c(24) = C{24) - A(81): IF C(24) <= 0 THEN E(l2) = 
E(12) + C(24): C{24}) = 0: GOTO 6900 

E12) =0 

C(24) = C{24) - A(82): IF C(24) <= 0 THEN E(13) = 
E(13) + C{24): C(24) = 0: GOTO 6900 

E{13} = 0 

C(24) = C(24) - B(79): IF C(24) <= 0 THEN E(14) = 
E(14) + C{24): C(24) = 0: GOTO 6900 

E(14) =0 

C(24) = C(24) - B{81): IF C(24) < = 0 THEN E(l6) = 
E(16) + C(24): C(24) = 0: COTO 6900 

Eil6) = 


0 

c(23) = C(23) - C(24) 
REM ALTERSFREIBETRAG 

IF A(2} = 7 THEN C(25) 
IF B(2) = 7 THEN C(25) 
REM HAUSHALTSFREIBETRAG 
IF All) = 1 AND (A(4) + A(5)) > O THEN C(26) = 4212 
REM KINDERFREIBETRAG 

c(27) = A(4) « 432 + A(5) « 216 

REM ZU VERSTEUERNDES EINKOMMEN 

c(29) = C(24} - C(25) - C(26) - C(27): IF C(29) < 0 
THEN C(29) ="0 

REM ABZUGSBETRAG NACH PARAGRAPH 34F 

C(47) = A(48) * 600: C{40) = INT(A(95) + .5): C(4l) 
= INT(A(96) + .5) 

REM EINKOMMENSTEUER-BERECHNUNG 


T2O 
C(25) + 720 


IF All) = 1 THEN C(30) = 1 
IF All) = 2 THEN C(30) = 2 
IF A(6) = 1 THEN C(30) = 2 
AU = INT(A(16) + B(16) + Al21) + B(21) + A(28) + 


B(28) + A(60) + B(60) + Al61) + B{6l)}): AN= 0: AV 
AU 

IF AU > C(29) THEN AU = C(29): AN = 4212 

IF C({29) <= 0 THEN AN = 0 

FOR I = AN TO AU: REM KUERZUNGSBETRAG = I 

71 =0:° 172-0: V=MW-1I 

Sl = C(29) - AV + A(65) + A(67) + B(67) - Al66): E= 
Sl: CP = C(30) 

GOSUB 7075: IF S1 > O THEN Ti = INT((C(29) - AV) * 
st / sl) 

S2 = C(29) + A(65) + A(67) + B(67): E= S2: CP = 
c(30) 

GoSUB 7075: IF S2 >0O THNT2 = AV«ST/52 /2 
T=Tl+T2: IF (T >= TV) AND (I > AN) THEN 7030 
TV =T: T3= Tl: T4 = T2: 53 = Sl: S4 = S2: NEXT I 
E(17) = C(29) - MV 

IF {A(65) > 0) 'OR (A(66) > 0} OR (A(67) > 0) OR 
(B(67) > 0) THEN E(18) = E(}7): E(17) =0 

E(19) = AV: C{31) = INT (T3 « 100) / 100 

IF (C(29) - AV) <= 0 THEN 7055 \ 

IF S3 > 0 THEN E(6) = INT (T3 «= 100 / {C(29) - AV) «* 
100) / 100 

IF AU > O THEN E(8) = INT (T4 = 100 / AV = 100) / 
100 

E(9) = I - 1: IF (A(65) > 0) OR (A{66) > 0) OR 
(A(67) > 0) OR (B(67) > 0) THEN C(32) = C(31): C(31) 
= 0: BiT) = E(6): E(6) = 0 

C(33) = INT (TA): C(34) = C(31) + C(33): IF C(31) = 
0 THEN C(34) = C{32) + C(33) 

GOTO 7155 

REM UNTERPROGRAMM — TABELLE 
IFCP=2THENE=E/2 

E = INT(E / 54) = 54 

IF E< = 4212 THEN ST = 0: GOTO 7140 

IF E > 18000 THEN 7105 

ST = INT{.22 = E - 926): GOTO 7140 

IF E > = 60000! THEN 7120 

Y= (E - 18000) / 10000 

ST = INT((((3.05 =» Y - 73,76) = Y + 695) « Y + 2200) 
* Y + 3034): GOTO 7140 

IF E > 130000! THEN 7135 

zZ = (E - 60000!) / 10000 

ST = INT(({(.09 « Z - 5.45) « Z + 88.13) « Z + 5040) 
* Z + 20018): GOTO 7140 

ST = INT(.56 « E - 14837) 

IF ST<O THENST=0 

IF CP = 2 THENST=ST«2 

RETURN 

REM AUSLAENDISCHE STEUER 

IF C{16) <= 0 THEN 7185 

AS = INT(A{97) = C(34) / C(16)) 

Cc(35) = INT(A(98)) 

IF AS < = A(98) THEN C(35) = AS 





7180 
7185 
7190 
71953 
7200 


TROS 
7210 
7215 


7220 
7225 
7230 


7235 
7240 


7245 
7250 
7255 
7260 
7265 
7270 


7275 
7280 
7285 
7290 
7295 


7300 
7305 
7310 
7315 
7320 
7325 


7330 
7335 
7340 
1345 
7350 
7355 
7360 
7365 
7370 
7375 
7380 
7385 
7390 
7395 
7400 
7405 
7410 
7415 
7420 
7425 
7430 
7435 
7440 
7445 
7450 
7455 
7460 
7465 
7470 
7479 
7480 
7485 


7490 
7495 
7500 
7505 
7510 
7515 
1520 
7525 
7930 
7535 


7540 


7545 


7570 


7575 





IF A(99) = 2 THEN C(35) = 0 

REM ERMAESS. F. ERFINDER 

IF C{16) <= 0 THEN 7205 

c(37) = INT(A{102) « C(34) / c(16) /2 + .5) ' 
IF C{16) < A(102) THEN C(37) = INT(C(16) # C(34) / 
c(16) /2 + 5) 

REM ERMAESSIGUNG FUER LAND- U. FORSTWIRTSCHAFT 

IF C(29) < = 0 THEN 7290 

A= C(l): B= C(15): C = A(103): D = A(104): GOSUB 
7240: VL=U: IF VI<0THENVI=0 

A= D{l): B = D(15): C = B(103): D = B(104): GOSUB 
7240: V2 = U: IF V2 <O0THENV2=0 

A=C{l): B= C(15): C = A(105): D = A(106): GOSUB 
7240: V3 = U: IF V3 < 0 THEN V3 = 0 

A= Dil}: B= D(15): C = B(105): D = B(106): GOSUB 
7240: VA = U: IF VA < 0 THEN V4=0 

GOTO 7260 

U= (34) / C(29) /2 = (A - B): V = 1000 - ({C - 
50000!) / 10) 


IFD>OTHENV=D 

IFU>VTHENU=V 

RETURN 

IF (A(105) = 0) AND (A(106) = 0) THEN V3 = 0 
IF (B(105) = 0) AND (B{106) = 0) THEN V4 = 0 


AA = 2000: IF (All) = 2) AND (C(1) > 0) AND (D(l} > 
0) THEN AA = 1000 

c(36) = v1 + V3: IF (C(36) > AA) THEN C(36) 
D(36) = v2 + VA: IF (D(36) > AA) THEN D(36) 
C(36) = INT(C(36) + D(36) + .5): D(36) = 0 
REM FESTZUSETZENDE EINKOMMENSTEUER 

C(44) = C(34) - C{35) - C(36) - C(37) - C(38) + 
c(39) - C(40) - C(41) - C(42)ı+ C(43) 

IF C{44) < O0 THEN C(44) = 0 


AA 
AA 


REM KIRCHENSTEUER-BERECHNUNG 

T= 6(44) 

IF A[4) = 1 THEN T = C(44) - 600 

IF A{4) = 2 THEN T = C{44) - 600 - 960 
IF A(4} > 2 THEN T = C(44) - 600 - 9860 - ((Al4) - 2) 
* 1800) 

IFT<=0THENT=O 

REM STEUER AUS S.D.E. 

CP = 1: E = C{8): GOSUB 7080: T3 = ST 
CEr= SZENE GEOSUBET7ORDE STAR ST 
IF A(l) = 1 THEN 7385 

IF (A{3) > 0) AND (B{3) > O0) THEN 7385 


IF A(3) = O0 THEN 7370 

KI=Tx 713 / (T3 + TA): KI=9«KI/ 100 
IF B{3) = 0 THEN 7390 

KI=TxT4/ (T3 +T4): KI=9 »KI/ 10 
GOTO 7390 

KI=9%&T/ 100 

REM KIRCHENSTEUER FUER LEDIGE 


KI = INT(KI « 100) / 100 

IF A(3) = 1 THEN C(45) = KI 

IF A(3) = 2 THEN C(46) = KI 

IF A(l} = 1 THEN 7455 

REM KIRCHENSTEUER FUER EHEGATTEN 

IF A(3) = 1 THEN C(45) = .5 

IF A(3) = 2 THEN C{46) = .5 

IF B(3) = 1 THEN C{45) = C(45) + .5 

IF B(3) = 2 THEN C{46) = C(46) + .5 

IF C(45) = ‚5 AND C(46) = 0 THEN C(45) = 1 

IF C(46) = .5 AND C(45) = 0 THEN C(46) = 1 

C{45) = C(45) « KI: C(46) = C(46) = KI 

REM AN- U, ABRECHNUNG - 

C(50) = INT{A(113) + „9): C(51) = INT{A(114) + .9) 
c{53) = INT{A(110) + .9): C(54) = INT(A(115) + .9) 
c(56) = INT{A(111) + .9): C(57) = INT{A(112) + .9) 
C{58) = INT({A(116) + .9): C(59) = INT{A(l17T) + .9) 
IF C{47) > C{44) THEN C{47) = C(44) 

c(52) = C(44) - C(50) - C(51) - C(47T): C(55) = C(52) 


- 6(53) - C(54) 

c(60) = C(45) - C(56) - C(58): Cl&l) = C(46) - C(57) 
- C(59) 

c(62) = C(60) + C(61l}): C(63) = C(62) + C(55)} 

REM AUSDRUCK AUF DEM BILDSCHIRM 

HOME: PRINT"An- u. Abrechnung : ";:HTAB 

69: INVERSE: PRINT"SEITE 1":NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 4:PRINT'"Ei nkün f te : Ehemann: Ehefrau: 
FOR I = 1 TO 79: PRINT"#";: NEXT I 

PRINT"Land- u. Forstwirtschaft"; :HTAB 44: PRINT USING 
te Ccll)::HTAB 62: PRINT USING "#4344#4#";D(]) 
PRINT"Gewerbebstrieb"; :HTAB 44: PRINT USING 
"##+4#+4teC0l2);:HTAB 62: PRINT USING "#4#4#4+44#";D(2) 
PRINT"Selbständiger Arbeit"; :HTAB 44:PRINT USING 
her. C0l3);:HTAB 62: PRINT USING "4444444" :D(3) 
PRINT"Nichtselbständiger Arbeit"; :HTAB 44: PRINT 
USING "#4##3##4+#":0(4);:HTAB 62: PRINT USING 
"4444 D(A) 

PRINT"Kapitalvermögen"; :HTAB 44: PRINT USING 
et"; C0(5);:HTAB 62: PRINT USING "##4##44#":D(5) 
PRINT: PRINT"Alterentlastungsbetrag"; :HTAB 44: PRINT 
USING "########":0(13);:HTAB 62: PRINT USING 
"ehrt; D(1l3) 
PRINT"Ausbildungsplatz-Abzugsbetrag"; :HTAB 44: PRINT 


7580 
7585 
7590 
7595 
7600 


7605 


7610 
7615 


7620 
7625 


7630 
7635 
7640 
7645 


7650 
17655 


7660 
7665 
7670 


7675 
7680 


7685 
7690 
7695 
7700 
7705 
7710 
7715 
TT20 
TT25 
7730 
7735 
7740 
7745 


7750 
7755 


7760 
7765 
rd 
on 
7780 


7785 
7790 


7795 
7800 
7805 
7810 
7815 
7820 
7825 
7830 
7835 
7840 
7845 
7850 


7855 


USING "######44#";C[14);:HTAB 62: PRINT USING 
#44+44+##'",D(14) 

PRINT"Freibetrag für Land- u. Forstwirtschaft"; :HTAB 
44:PRINT USING "######44#",C(15); :HTAB 62: PRINT USING 
"4444444", D(15) 

PRINT"Ausländische Steuer n, Par.34c"‘:HTAB 44: PRINT 
USING "#4####+#+#+#",C(12); :HTAB 62: PRINT USING 
"#+4+#+#++4#";D(12) 

FOR I = 1 TO 79: PRINT"=";:NEXT I 

PRINT"Gesanmtbetrag der Einkünfte für 
Ehemann/frau";:HTAB 55:PRINT USING "#####+44+#";C(16) 
VTAB 23:HTAB 25: PRINT"--> ";:INVERSE: PRINT"Drücken 
Sie eine Taste"; :NORMAL: PRINT" <--":GET Y$ 

HOME: PRINT"An- u. Abrechnung : ";:HTAB 69: INVERSE: 
PRINT"SEITE 2": NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 6: PRINT"Ausgaben, Aufwendungen, Freibeträge 
Ehemann/Ehefrau" 

FOR I = 1 TO 79: PRINT!'#";:NEXT I 
PRINT"Sonderausgaben"; :HTAB 60: PRINT USING 

"4 cc (18) 

PRINT" Vorsorgeaufwendungen"; :HTAB 60: PRINT USING 
"44, (19) 

PRINT"Freibetrag für Freiberufler"; :HTAB 60: PRINT 
USING "####34444#";C0(21) 

PRINT"Außergewöhnliche Belastungen"; :HTAB 60: PRINT 
USING "#434 4+4#" ,C0(22) \ 
PRINT"Verlustabzug"; :HTAB 60: PRINT USING 

4" (23) : 

FOR I = 1 TO 79: PRINT"=";:NEXT I 
PRINT"Einkommen"; :HTAB 60: PRINT USING 

tete, 024) 

PRINT: PRINT"Altersfreibetrag"; :HTAB 60: PRINT USING 
"#444"; C0(25) 

PRINT'"Haushaltsfreibetrag"; :HTAB 60: PRINT USING 
"4" 0 (26) 

PRINT"Kinderfreibetrag"; :HTAB 60: PRINT USING 
"Est"; 0 (27) 

FOR I = 1 TO 79: PRINT"="; :NEXT I 

PRINT"Zu versteuerndes Einkommen"; :HTAB 60: PRINT 
USING "+4#++#+43+#";C0(29) 

VTAB 23:HTAB 23: PRINT'"—> ";:INVERSE: PRINT"<W>eiter, 
<Z>urück „.. <W/Z>";:NORMAL: PRINT" <—":GET Y$ 

IF Y$ = "w" OR Y$ = "2" THEN 7695:ELSE 7685 

IF Y$ = "2" THEN 7505 

HOME: PRINT"An- u. Abrechnung : ";:HTAB 

69: INVERSE: PRINT'"SEITE 3":NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I: PRINT 

VTAB 5: PRINT"Einkommen/Lohn-Steuer Ehemann/Ehefrau" 
FOR I = 1 TO 79: PRINT"=U;:NEXT I 

PRINT"laut "; 

IF C(30) = 1 THEN PRINT"Grundtabelle "; 

IF C(30) = 2 THEN PRINT"Splitting "; 
PRINT"<";E(17);" # ";E(6);" %>";:HTAB 60:PRINT USING 
"4444,00 (3]) 

PRINT'"laut Progressionsvorbehalt <";E(18);" « 
":E(7)" Z>"::HTAB 60:PRINT USING "#4444444#";0[32) 
PRINT"Ermäßigte Steuer n,Par.34 <";E(19);'"' » ";B(8)" 
%>";:HTAB 60: PRINT USING "#444##+#4#";C0(33) 

FOR I = 1 TO 79: PRINT'"="; :NEXT I 

PRINT"Tarifliche Einkommen/Lohn-Steuer"; :HTAB 
60:PRINT USING "#444#4+#";0(34) 

PRINT: PRINT"Ausländische Steuer n. Par.34c"; :HTAB 
60:PRINT USING "#t4##+#4+#";C(35) 

PRINT"Ermäßigung aus Land- u. Forstwirtschaft"; :HTAB 
60:PRINT USING "#+#+444+#";C(36) 

PRINT"Ermäßigung für Erfinder";:HTAB 60: PRINT USING 
"#444, (37) 

PRINT"Ermäßigung Berlin FG n. Par. 16, 17"; :HTAB 
60:PRINT USING "#+F44+#+#";C0(40) 

PRINT"Ermäßigung Vermögensbildungsgestz n, Par. 
14"; :HTAB 60: PRINT USING "###+4#4#";C0(41) 

FOR I = 1 TO 79: PRINT'"=";:NEXT I 
PRINT"Festzusstzende Einkommen/Lohn-Steuaer"; :HTAB 
60:PRINT USING "#4++4444#";0(44) 
PRINT"Festzusetzende Kirchensteuer ev,"::HTAB 
60:PRINT USING "#+4444+4+#":,C(45) s 
PRINT"Festzusetzende Kirchensteuer rk,"::HTAB 
80:PRINT USING "#4###+#+#+";C{46) 

VTAB 23:HTAB 23: PRINT"--> "; :INVERSE: PRINT"<W>eiter, 
<Z>urück ... <W/Z>";:NORMAL: PRINT" <--":GET Y$ 

IF Y$ = "X" OR Y$ = "2" THEN 7815:ELSE 7805 

IF Y$ = "2" THEN 7605 j 

HOME: PRINT"An- u. Abrechnung : ";:HTAB 

69: INVERSE: PRINT"SEITE 4":NORMAL 

FOR I = 1 TO 79: PRINT"=";:NEXT I:PRINT 

VTAB 6: PRINT"Einkommen/Lohn-Steuer Ehemann/Ehefrau" 
FOR I = 1 TO 79: PRINT"#";:NEXT I 
PRINT"Festzusstzende Einkommen/Lohn-Steuer"; :HTAB 
60:PRINT USING "4444444" ,0 (44) 

PRINT"Abzug n. Par. 34f";:HTAB 60: PRINT USING 
"te, 0 (47) 

PRINT"Kapitalertragssteuer"; :HTAB 60: PRINT USING 
"#4+4++t+4#",C0(50) 

PRINT"Anrechnung Körperschaftssteuer";:HTAB 60: PRINT 
USING "##4###4#";C(51) 





7860 
7865 


7870 
7875 


7880 
7885 


7890 
7895 
7900 
79205 
7910 
7915 
7920 
7925 
7930 
7935 
7940 
7945 
7950 
7955 


7960 
7965 


7970 
7375 


7980 
7985 


7990 
7995 


8000 
8005 
8010 


8015 
8020 


8025 
8030 
8035 
8040 
8045 
8050 
8055 


8060 
8065 
8070 


8075 


8080 
8085 


8090 


8095 
8100 
8105 
8110 
8115 


8120 
8125 


8130 
8135 
8140 


8145 
8150 





FOR I = 1 TO 79: PRINT"=";:NEXT I 
PRINT"Verbleiben"; :HTAB 60: PRINT USING 
"#44 +444" CC (52) 

PRINT: PRINT"Lohnsteuer"; :HTAB 60: PRINT USING 

et (55) 

PRINT"Vorausgezahlte Einkommen/Lohn-Steuer"; :HTAB 
60:PRINT USING "4444444"; C(54) 

FOR I = 1 TO 79: PRINT"="; :NEXT I 

PRINT" Einkommen/Lohn-Steuer"; :HTAB 60:PRINT USING 
"E4+4#+t" 055) 

VTAB 23:HTAB 23: PRINT"—> "; :INVERSE: PRINT"<W>eiter, 
<Z>urück .„... <W/Z>"; :NORMAL: PRINT" <--":GET Y$ 

IF Y$ = "'W" OR Y$ = "2" THEN 7900 :ELSE 7890 

IF Y$ = "2" THEN 7700 

HOME: PRINT"An- u, Abrechnung : ";:HTAB 

70: INVERSE: PRINT"SEITE 5" :NORMAL 

FOR I = 1 TO 79: PRINT'"-"; :NEXT I: PRINT 

VTAB 6: PRINT"Einkommen/Lohn-Steuer Ehemann/Ehefrau" 
FOR I = 1 TO 79: PRINT"x";:NEXT I 
PRINT"Einkommen/Lohn-Steuer!"; :HTAB 60: PRINT USING 
#4 055) 

PRINT"Festgesetzte Kirchensteuer ev.";:HTAB 60: PRINT 
USING "#44 #444" ;C(45) 

PRINT"Festgesetzte Kirchensteuer rk.";:HTAB 60: PRINT 
USING "+##+4+4+4+4#";0(46) 

PRINT"Lohn-Kirchensteuer ev.";:HTAB 60: PRINT USING 
"##+#t4r+#",0(56) 

PRINT"Lohn-Kirchensteuer rk.";:HTAB 60:PRINT USING 
"#444 +t" 057) 

PRINT"Vorausgezahlte Kirchensteuer ev,";:HTAB 
60:PRINT USING "#4t#+44+#":;C(58) 
PRINT"Vorausgezahlte Kirchensteuer rk.'";:HTAB 
60:PRINT USING "#444+4##";C(59) 

FOR I = 1 TO 79:PRINT'"=";:NEXT I 

PRINT"Restbetrag Kirchensteuer ev.";:HTAB 60: PRINT 
USING "##+##+#44#":C0(60) 

PRINT"Restbetrag Kirchensteuer rk.";:HTAB 60: PRINT 
USING "##++4+24+#";C(61) 

PRINT"Restbetrag Gesamt-Kirchensteuer ev. u. 
rk.";:HTAB 60:PRINT USING "##+#+#+#44+#":;0(62) 

FOR I = 1 TO 79: PRINT'"="; :NEXT I r 
PRINT"Gesamt-Einkommen/Lohn-Steuer"; :HTAB 60: PRINT 
USING "+#+##44+##+";C0 (63) 

HTAB 60: PRINT"————=!' 

VTAB 23:HTAB 23: PRINT"—> "; :INVERSE: PRINT"<W>eiter, 
<Z>urück „.. <W/Z>";:NORMAL: PRINT" <—":GET Y$ 

IF Y$ = "W" OR Y$ = "Z" THEN 8005: ELSE 7995 

IF Y$ = "2" THEN 7820 

HOME: PRINT"An- u, Abrechnung : '"';:HTAB 

70: INVERSE: PRINT"SEITE 6": NORMAL 

FOR I = 1 TO 79: PRINT"-"; :NEXT I:PRINT 

VTAB 7: PRINT"Lohn/Einkommensteuer Erstattung oder 
Erhebung, sowie Erläuterungen" 

FOR I = 1 TO 79:PRINT"#";:NEXT I 

IF C{63) = 0 THEN 8045 

IF C{63) > O0 THEN PRINT"Restbetrag";:HTAB 60: PRINT 
USING "#44##44#",C(63); :PRINT" DM" 

IF C(63) < O0 THEN PRINT"Erstattungsbetrag"; :HTAB 
60:PRINT USING "HH#3#444#";0(63) * -1;: PRINT" DM" 
PRINT:IF E{l) = 1 THEN PRINT"Einzelveranlagung mit 
Witwensplitting Par. 32a VI ESTG.":PRINT 

IF A(7T1) + A(72) + B(72) + A(74) = O0 THEN 8110 
PRINT"An Vorsorgeaufwendungen plus Bausparbeiträge 
wurden ";A(71) + A(72) + B(72) + A(76);" DM 


berücksichtigt" 
PRINT"Höchstbetrag : ";E(2);" DM" 
PRINT"Vorsorgepauschale/Pauschbetrag : ";E(3);" DM" 


IF (A(4}) + A(5})}) > O THEN PRINT"Es wurde(n) ";A(4);" 
Kind(er) und ";A(5);" Zahlkind(er) berücksichtigt." 
IF (A(79) + A(80) + A(81) + A(82) + B(79) + B{80) + 
B(81)) = O0 THEN 8110 

PRINT"In 1984 noch abzugsfähige Verluste:" 

PRINT" aus 1979 : O0"; :HTAB 30:PRINT"aus 1980 

";E{ll) 


PRINT" aus 1981 : ":;E(1l2);:HTAB 30: PRINT"aus 1982 : 
IPEtLS) 

PRINT" aus 1983 : ";E(14);:HTAB 30: PRINT"aus 1983 : 
Verlustrücktrag" 

PRINT" aus 1985 : ":E(15);:HTAB 30: PRINT"aus 1987 : 
Verlustvortrag" 

PRINT" aus 1986 : ";E{16) 


IF C{16) = 0 THEN 8125 

PRINT: PRINT"Verlustrücktrag des negativen 
Gesamtbetrags der Einkünfte in 1983 + 1982" 
PRINT"in Höhe von ";ABS (C({16));" DM" 

IF A(85} > O THEN PRINT: PRINT"Von den 
außergewöhnlichen Belastungen n. Par.33 ESTG wurde 
eine zumutbare":PRINT"Eigenleistung I.H.V. ";:B(5};" 
DM abgezogen," 

IF E(9} > O THEN PRINT"Die begünstigten Einkünfte 


wurden zu Gunsten um ";E{9);" DM gekürzt" 
VTAB 23:HTAB 23: PRINT"—> ";: INVERSE: PRINT"<M>enue; 
<Z>urück ... <M/Z>";:NORMAL: PRINT" <—":GET Y$ 


IF Y$ = "'M" OR Y$ = "2" THEN 8145:ELSE 8135 
IF Y$ = "Z" THEN 7905 
CHAIN "'MENUE'" 
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Helpmenue :: 


% 
<A> Anleitung 
<B> Kurzerklärungen der Lohn/Einkommensteuer 
<C> Abkürzungen 
<Z> MENUE — zurück zum Hauptnenue 


Bitte wählen Sie <A-D, Z> 


SEITE 1 


Anleitung : 


Dieses Programm läuft vollständig automatisch ab. Das heißt, Sie brauchen 
nur bei der Eingabe von Zahlen die entsprechenden Zahlen eintippen und die 
Return-Taste drücken. Bei Eingaben, die einen Buchstaben erwarten, braucht nur 
der Buchstabe angetippt werden. 


Un Ihnen die Eingaben weiter zu erleichtern, steht rechts neben der ge- 
forderten Angabe in Klammern die Dimension, z.B. <DM>, Hier muß also eine Zahl 
eingetippt werden. Anschließend die Return-Taste drücken, 


Angaben, die einen bestimmten Mert erwarten, z.B. die Monatsangabe <MM>, 
kann nicht falsch eingegeben werden, da dieses Programm die Eingabe dann auto- 
matisch überwacht. Ist die Zeile abgeschlossen, so wird der Wert an den 
Rand geschoben, Wenn Sie keinen Wert zum Eingeben haben, brauchen Sie 
anstatt der Eingabe "0" nur die RETURN-Tastse drücken. 


Bitte wählen Sie „.. <#>eiter, <M>enue —> <> 


Anleitung : SEITE 2 


Falls Sie sich trotzdem einmal vetippt haben, die Zeile aber schon abge- 
schlossan ist, so arbeiten Sie das Programm weiter durch, denn am Ende des 
Bildschirms erscheint jedesmal die Frage: 


: sind alle Angaben richtig ? <J/N> 


Tippen Sie nun "N" ein, so springt der Cursor auf die erste Eingabszeile 
zurück. Zur Kontrolle steht rechts der vorher eingegsbens Wert. Sie können 
nun den Wert korrigieren. Alle richtigen Werte müssen allerdings dann ernsut 
eingegeben werden, 


Ist ein Programmabschnitt abgeschlossen und Sie kehren zum Hauptmenus zurück, 
so erscheint ein Stern <=> in der abgearbeiteten Zeile, z.B. 
<> ou — Grundangaben 
Hier haben Sie also eine Kontrolle, welcher Abschnitt schon bearbeitet worden 
ist. Wollen Sie einen Abschnitt noch einmal bearbeiten, so ist es Jederzeit 


möglich, auch wenn Sie die Abrechnung schon angesehen haben, Diese Varlante 
erlaubt es Innen Ihr Geld im Rahmen des Erlaubten richtig einzusetzen. 


Bitte wählen Sie ... <#>eiter, <M>enue —> <> 


Anleitung : SEITE 3 

Um einen neuen Durchlauf zu starten, drücken Sie die Taste <X> im Hauptmenue, 
Sie gelangen nun zum Passwort-Schutz zurück, Geben erneut das Passwort ein und 
die Variablen sind auf "0" gesetzt, Aus systemtechnischen Gründen mußte 
dieser etwas umständliche Weg gewählt werden, 


ACHTUNG II 


Achten Sie auf die Reihenfolge im Hauptmenue. D.h., um einen einwandfreien 
Durchlauf im Programm zu gewährleisten, ist es erforderlich, daß Sie das Haupt- 
menue von oben nach unten durcharbeiten. Sie fangen also mit dem Programm 
"Ch> Grundangaben" an und arbeiten sich nach unten durch. Haben Sie z.B. 


Einkünfte aus Land- u. Forstwirtschaft, 
Einkünfte aus Gewerbebetrieb, 

Einkünfte aus selbständiger Arbeit, 
Einkünfte aus nichtselbständiger Arbeit, 


keine <B> 
keine <a» 
keine <D> 
aber <E> 


so übergehen Sie die Abschnitte <B>, <C>, und <D> und tippen <E> ein, 
Dementsprechend fahren Sie welter von oben nach unten fort, 


Bitte wählen Slea .-........... «M>anus —> eo 


Kurzerklärungsmenus : 


el a a a m 


Erklärungen aus folgenden Bereichen sind möglich: 
# 
<ä> Grundangaben 
<B> Einkünfte aus der Land- u, Forstwirtschaft 
<t> Einkünfte aus Gewerbebetrieb 
<D> Einkünfte aus selbständiger Arbeit 
<E> Einkünfte aus nichtselbständiger Arbeit 
<F> Einkünfte aus Kapitalvermögen 
<G> Einkünfte aus Vermietung u. Verpachtung 
<H> Sonstige Einkünfte 
<I> Doppelbssteuerungsabkommen u, außerordentl, Einkünfte 
<J> Sonderausgaben 5 
<k> Außerordentliche Belastunge 
<L> Besondere Abzugsbeträge u, ausländische Steuern 
<M> Einkünfte zur An- und Abrechnung 


<Z> MENUE — zurück zum Helpmenue 


Bitte wählen Sie <A-NM, Z> 


Kurzerklärung : Grundangaben SEITE 1 


Als Grundangaben benötigt das Programm den Familienstand, das Geburtsdatun, 
die Religion, die Anzahl der Kinder und Zahlkinder, 


Folgende Werte können Sie im Lohn/Eink.-Steuer-Antrag entnehmen: 
Familienstand „.„... Zeile 9/15 
Geburtsdatum ...... Zeile 4/72 u, 11/73 
Religion .......::. Zeile 4/72 u. 11/73 
Anzahl d, Kinder .. Seite 2, Zeile 29 - 34 
Zahlkinder ........ Seite 2, Zeile 42 u, 43 


Die Angabe des <Familienstandes> dient der Entscheidung, ob die Einkommen- 
steuer oder die Einkommensteuer-Splittingtabelle anzuwenden ist, 
Sie hat fernsr die Bedeutung für die Berechnung der Vorsorgepauschale und der 
höchstens abzugsfähigen Vorsorgeaufwendungen, ferner für die Berechnung ganz 
allgemein der Sondsrausgaben und der außergeröhnlichen Belastungen. 


Bitte wählen Sie ... “#W>eiter, <M>enus —> < 


Kurzerklärung : Grundangaben SEITE 2 


” 


Aus der Angabe des <Geburtsdatums> kann das Programm erkennen, ob der Alters- 
freibetrag von 720 DM für 6djährige oder ob der Versorgungs-Freibetrag für 
S2jährige oder schwerbehinderte 60jährige oder der Altersentlastungsbetrag für 
64jährigs in Betracht kommt. 


Falls der Arbeitnehner/geber oder sein Ehsgatte oder beide einer <Religion> 
angehören, ist dies unmißverständlich anzugeben. 


Die Anzahl dsr <Kinder> ist für die Berechnung besonders wichtig, da hler 
etliche Berechnungen auf die Anzahl der Kinder berührt, z.B. Kinderfreibetrag, 
Prämienspargesetze, Einkommansgrenze usw, 


Unter <Zahlkinder> versteht man dis Kinder, die dem Elterteil zugeordnet 
sind, also in der Regel die Kinder, für die der Ehemann Unterhalt zahlen muß. 


Bitte wählen Sie „.. <#>eiter, <M>enue —> <> 


Kurzerklärung : Grundangaben SEITE 3 


Das Programm ermöglicht zwei verschiedene Veranlagungsfornen: 
l. die Einzelveranlagung, d.h.., ein lediger, geschiedener oder verwltweter 
Steuerpflichtiger wird allein veranlagt 
2. die Zusanmmenveranlagung, d.h., die Veranlagung von beiden Ehegatten 
Das Programm entscheidet anhand der Eingabe <ledig/verheiratet>., 


Bei einer Einzelveranlagung wird zusätzlich abgefragt, ob <Witwensplitting 

zu beachten ist... In den folgenden Fällen ist dies zu beachten: 

l. der Steuerpflichtige 1st 1993 verwitwet und hat nicht wieder geheiratet. 
Folge: im Jahr 1984 Einzelveranlagung <ledig> mit Witwensplitting 

2. der Steuerpflichtige wurde 1984 geschieden, oder die Ehe wurde andar- 
weitig aufgelöst, und der Ehegatte hat wleder geheiratet und erfüllt die 
Voraussetzungen für eine Zusammenveranlagung bz#., getrennte Veranlagung. 
Folge: Eine Einzelveranlagung mit Fitwensplitting 


Bitte wählen Sie .. <M>enue — > 





Kurzerklärung : Einkünfte aus Land- u, Forstwirtschaft 
nn DD nn on _ „ = _. - — — — — z _ 2 


Angegeben wird hier der <Gewinn> aus der Land- u. Forstwirtschaft nach 
Paragraph 13 ESTG, Außerdem ist der <Veräußerungsgewinn> einzugeben, der in 
diesen Gewinn steckt. Der Freibetrag für die Land- u. Forstwirtschaft wird 
automatisch ermittelt. 

Für den <Ermäßigungsbetrag> nach Par, 345 ESTG wird der <Gewinn 94/85> 
aus den verschiedenen Land- u, Forstwirtschaftsbatrieben angegeben, bzw. der 
duroh den Feststellungsbascheld festgestellten Höchstbetrag, 


Die Angaben für die Einkünfte aus Land- u. Forstwirtschaft können Sis der 
Anlage L entnehmen, dis Sie beim FA erhalten. 


Bitte wählen Sie ı. cc: Manu —> <> 


Kurzerklärung : Einkünfte aus dem Gewerbebetrieb 
Anzugeben ist hier der <Gewinn> nach Par. 15 ESTG und außerdem auch der 
im Gewinn enthaltene <Veräußerungsgerinn>. 


Die Angaben für die Einkünfte aus den Gewerbebetrieb können Sie der 
der Anlage GSE entnehmen, dis Sie belm FA erhalten. 


Bitte wählen 31a 2: -.2-:2.%.- 20 Mohn —> 2> 


Kurzerklärung : Einkünfte aus salbständiger Arbeit 


Eingsgeben wird der <Gewinn> aus der <freiberuflichen Arbeit> und aus der 
<sonstigen Tätigkeit>, Dieses beiden Unterschiede werden in der Berechnung 
berücksichtigt, da der Freibetrag ebenfalls unterschiedlich ist. 


Weiterhin sollen dis <Werbungskosten> sowie der <Veräußerungsgewinn> nach 
Paragraph 18, Abs. 3 angegeben werden. 


Für die <Veräußerungsgewinne> gibt es einen ermäßigten Steuersatz nach 
Paragraph 348 ESTG. Bei Angabe des <Veräußerungsgewinns> wird in jedem Fall 
nur der stauerpflichtige Teil eingegeben, d.h,, nach Abzug einas Froibatragen. 


Die Angaben für die Einkünfte aus selbständiger Arbeit können Sie der 
Anlage GSE entnehmen, die Sie beim FA erhalten. 


Bitte wählen Ile 14-20 bonus —> <> 


Kurzerklärung : Einkünfte aus nichtselbständiger Arbeit SEITE i 


Die Werte für Bruttolohn, Bezüge, Merbungskosten und die Beträge von Arbeits- 
losengeld <ALG>, Schleohtwettergeld <S#WG>, Kurzarbeitergeld <KUG> und Arbeits- 
losenbeihilfe <ALB> werden hier eingegeben. 


Folgende Werte können Sie im Lohn/Eink.-Steuer-Antrag entnehmen: 
N Arbeitslohn Anlage N, Zeile 3/10 u. 3/11 
Versorgungebezüge . Anlage N, Zeile 21/32 u. 21/33 
Werbungskosten „... Anlage N, Seite 2, Zeilen 37 - 63 
ALG/SMG/KUG/ALB .,. Anlage N, Zeilen 14 - 17 
F 
Der <Bruttoarbeitslohn> ergibt sich aus dem lfd. Lohn aus der aktiven Tätig- 
keit. <Versorgungsbezüge> sind z.B. Beamtenbezüge aus ehemaliger Tätigkeit. 


Für <Werbungskosten> erhält jeder Arbeitnehmer einen Pauschhetrag von 564 DM. 
pro Jahr. Wird dieser Betrag durch tatsächliche Aufwendungen nicht erreicht, 
erübrigt sioh der Eintrag auf Anlage N: Beia LST-Jahresausgleich muß in der 
Regel ein einwandfreier Nachweis mit Belegvorlage erbracht werden. 


Bitte wählen Sie ... <#W>eiter, <WH>enue —> eb 


Kurzerklärung : Einkünfte aus nichtselbständiger Arbeit SEITE 2 


Die <#erbungskosten> beinhalten : 
Fortbildungskosten 


Telsfongebühren 
Umzugskosten 


Fahrten Wohnung — Arbeitsstätte 
Beiträge zu Berufsverbänden 
Aufwendungen für Arbeitsmittel 
Mehraufwendg. f., Verpflegung 
Mehraufwendg, f. dopp. Haushalt 


Bewerbungskosten 
Kilomstergeld 
Arbeitszimmer 
Berufskrankheit 
Pauschsätze für bestimmte Berufsgruppen 


Ab 1982 unterliegen das <Arbeitslosengeld>, das <Kurzarbeitergeld>, das 
<Schlechtwettergeld> und die <Arbeitslosenhilfe> den FProgressionsvorbeshalt, der 
ausschließlich durch das FA zu berücksichtigen ist. Die genannten Lohnersatz- 
leistungen bleiben dabei steuerfrei, Auf das zu versteuernde Einkommen wird 
der höhere Steuersatz angewandt, der sich ergibt, wenn dis Lohnersatzleistung 
mit Ihrem Bruttobsetrag, wie Arbeitslohn, in die Einkommensberechnung nit einbe- 
zogen wird, 


Bitio wählen Sie .. <M>onug —> > 


Kurzerklärung : Einkünfte aus Kapitalvermögen 


Bei den Angaben über Ihr Kapitalvermögen werden die Werte <Einnahmen> und 
<Ferbungskosten> erwartet. Zu den Einnahmen gehören z.B. Sparzinsen und Divi- 
denden. Bei den Dividenden ist zu beachten, daß die zu versteuernden Einnahmen 
über dem Auszahlungsbetrag liegen. Das bedeutet: 


Auszahlungsbotrag + Kapitalertragssteuer + Körperschaftssteuer = Einkommen’ 


Die Angaben für dis Einkünfte aus dem Kapitalvermögen können Sia der 
Anlags KS0O entnehmen, die Sie beim FA erhalten. 


Bitte wählen Sle . "asannan “M>enus —> 


Kurzerklärung : Einkünfte aus Vermietung u. Verpachtung SEITE ı 


Die Einkünfte aus Vermietung u, Verpachtung unterteilen sich in zwei Gruppen: 
l} Die Rerte für <selbstganutztes Einfamillenhaus>, <selbstgenutzte Eigen- 
tumswohnung> und das völlig selbstgenutzto Haus. 


Hierbei wird der <Einheltswert>, bzw, Anteil, laut Einheiltswsortbascheid, 
der <Wohnzweck> mit seiner Prozentangabe über Nutzung des Hauses oder der 
Eigentumswohnung, der Angabe der <Selbstnutzung> in Monaten, die <Schuldzinsen> 
vor der Selbstnutzung (diese sind übrigens voll als Werbungskosten abzugsfähig} 
und <Schuldzinsen> danach (diese sind nur bis zur Höhe des Grundbstrages ab- 
zugsfähilg}, singegeben. 


Sollte ein Bauantrag nach dem 30.09.82 gestellt worden sein und ist das Ge- 
bäude bis zum 01.01.87 fertiggestellt, so können bis zu 10000 DM pro Jahr an 
Schuldzinsen für drei Jahre abgezogen werden, 


Außerdem dürfen Sie die Absetzung für die Abnutzung <AFA> für sämtliche 
zulässigen Abschreibungen nach Far,7b IV/V ESTG und Par.82a - ge ESTDV geltend 
machen. 


Bitte wählen Sie „., <#>siter, <W>enue —> 


Kurzerklärung : Einkünfte aus Vermietung u. Verpachtung SEITE 2 


2) Unter diesen Abschnitt fallen die <Wietelnnahmen> und die <#erbungskosten> 


Hierbei sind die <Mieteinnahmen> für vermletste Häuser und die darauf ent- 
fallenden <Werbungskosten> einzugeben. Unter <Einnahmen> fällt auch der 
Nutzungswert der selbstgenutzten Rohnung und die Nutzungsrechte. Zu den <fer- 
bungskosten> gehört wiederum die AFA oder die AFA nach Par,7b ESTG für ein 
Haus, bei dem der Bauantrag oder der Baubeginn oder der Erwerbsantrag nach dem 
23,07.81 gestellt, bzw. datiert sind. : 


Die Angaben für die Einkünfte aus Vermietung u. Verpachtung können Sie der 
Anlage VY entnehmen, die Sie beim FA erhalten, 


Bitte wählen; Sie . <H>ronug —>» <> 





59 





ZZ 








BE VER ER 


nn un mn 


Kurzerklärung : Sonstige Einkünfte 


Zu den sonstigen Einkünften gehören, die <Einnahmen>, die <#erbungskosten>, 
<sonstige Einnahmen> und die <Werbungskösten> für die sonstigen Einnahmen, 


Bei den <Einnahmen> handelt es sich um Einnahmen nach Par.22.1 ESTG. Das sind 
Renten und wiederkehrende Bezüge. Die Renten werden mit ihrem Bstragsanteil und 
die Bezüge werden voll geltend gemacht. Der Ertragsanteil ist dem ESTG zu ent- 
nehmen. Dazu kommen die Einnahmen nach Par.22.la, die sich aus Unterhalts- 
leistungen an den Ehegatten nach Par,10 Abs.1l Nr,l als Sonderausgaben im gegen- 
seitigen Einverständnis ergeben — maximal 900 DM-. Die <#erbungskosten>, die 
in diesem Fall entstehen, werden ebenfalls eingegeben, 


Bei den <sonstigen Eingaben» handelt es sich um Einnahmen, wenn sie im 
Par.22 Nr,2 ff ESTG genannt sind, unter anderem Einkünfte aus Spekulationsgse- 
schäftsn. Auch hier können Sie <Werbungskosten> geltend machen. 


Angaben für die sonstigen Einkünfte können Sie der Anlage KS0 entnahmen, die 
beim FA erhalten. 


Bitte wählen Sie <M>enue —> 


Kurzerklärung : Doppelbesteuerung u. außerordentl. Einkünfte 


——_— z E R 2 n = _ -- = 


Einkünfte, die unter ein <Doppelbesteuerungsabkommen> fallen und dadurch von 
der Einkommensteuer befreit werden, sind hier anzugeben, D.h., sie werden zwar 
nicht besteuert, aber für die Ermittlung des Steuersatzes herangezogen. Die 
daran enthaltenen <nußorordentlichen Einkuntto> sind Bonondert anzugeben. 


Ebenfalls anzugeben sind <Entschädigungen> nach Par,24 Nr.,1 ESTG und 
<Nutzungsvergütungen> nach Par.24 Nr:3 ESTG. <Entschädigungen> und <Nutzungs- 
vergütungen müssen jedoch bereits in einer der sieben Einkunftsarten berück- 
sichtigt sein, z.B. im Gewinn aus dem Gewerbebetrieb. 


Daraus ergibt sich folgende Aufstellung: 
Veräußerungsgewinn + Entschädigung + Nutzungsvergütung = außerordentl. Eink, 
Angaben finden Sie in der Anlage N, Zeile 18/36 u. 39 


'Bitta wählen Si . =Mstnus —> = 


Sonderausgaben SEITE 1 


Kurzerklärung : 


Als Sonderausgaben bezeichnet das ESTG bestimmte Kosten der Lebenshaitung, 
die förderungswürdig erscheinen. Dazu gehören 2.B., <Kirchensteuer>, <Steuer- 
beratungskosten>, <Aufwendungen> für die <Berufsausbildung>, <Spenden>, Bei- 
träge an «Bausparkassen>. 


Zu den <Vorsorgeaufwendungen> zählen abzugsfähige Versicherungen, wie 
Kranken-, Unfall-, Haftpflicht- und Lebensversicherungen. <Bausparbeiträge> 
sind nur dann einzugeben, wenn keine Sparprämie beantragt wurde, <Spenden an 
politische Parteien> können nur bei Vorlage der Spendenbescheinigung geltend 
gemacht werden. Dasselbe gilt bei den <sonstigen Spenden>. Hierzu gehören 
Spenden an wissenschaftliche, staatspolitische und als besonders förderungs- 
würdige anerkannte Institutionen. Zu den <unbeschränkten Sonderausgaben> ge- 
hören die Kirchensteuern, die Steuerberatungskosten u: die Ausbildung für die 
Berufsausbildung. 


Bitte wählen Sie ... <#W>eiter, <N>enue —> 


SEITE 2 


Kurzerklärung ! Sonderausgaben 


Zu den Sonderausgaben gehört weiterhin der <Arbeitnehmer/geber-Anteil> und 
der <Varlustausgleich>, 


Der <Arbeitnehmeranteil> beinhaltet den Arboitnchmer-Anteil zur gesetzlichen 
Rentenversicherung. Der <Arbeitgeberanteil> dementsprechend den Arbeitgeber- 


anteil zur ges. Rentenversicherung, Der <Verlustausgleich> beinhaltst den 
negativen Gesamtbetrag der Einkünfte des jeweiligen Jahres. 


Angaben können Sie dem EST-Antrag auf Seite 3 entnehmen, Hier sind die 
Zeilen 62 — B5 einzusehen. 


Bitte wählen Sie ‚ssrrsasrnnna. KM>Penus — > 


Kurzerklärung : Außergewöhnliche Belastungen 


Außergewöhnliche Belastungen sind: <Aufwendungen> n. Par.33, Pakete, Päck- 
chen in die DDR, Besuch aus der DDR, <Unterhaltszahlungen> an Parsonen ohne 
Kindergeldanspruch und <Ausbildungsfreibeträge>, 


Unter <Aufwendungen n. Par. 33> fallen: Krankheitskosten -soweit nicht er- 
stattet-, Ehescheidungskosten, Beerdigungskosten, Kurkosten, Heim- u. Pflege- 
kosten us#, 


Für die <Unterhaltszahlungen> an Personen sollten Sie folgendes beachten: 
Höhe der Unterhaltsaufwendunden sind tatsächlich gezahlte Beiträge. Unterhalts- 
zahlungen Dritter sind geleistete Zahlungen von Dritten an dieselbe Person. 
Unter Einkünfte und Bezüge versteht man die Einkünfte und Bezüge nach Steuer- 
recht, d.h,, Einkünfte = Einnahmen — Werbungskosten - Freibeträge/Pauschalen. 

Bezüge = Einnahmen — Unkostenpauschale {360 DM) 


Für den <Ausbildungsfreibetrag gilt dasselbe wie vorganannt, 


Die Angaben für die außergewöhnlichen Belastungen können Sie dem LST-Antrag 
aus den Zeilen B5 - 84 entnohmen, 


Bitte wählen Sie „..unusonunas <M>enue —> 


Kurzerklärung : Besondere Ermäßigungen 


Zu den besonderen Abzugsbeträgen gehört dis Anrechnung ausländischer Steuer- 
beträge, die auf ausländische Einkünfte entfällt, Bei Staaten ohne Doppelbe- 
steusrungsabkommen gilt Par, 34c ESTG>. Weiterhin gehört die Ermäßigung für 
Darlehen zum Berlin-Förderungsgesetz, Ermäßigung für vermögenswirksäane 
Leistungen des Arbeitgebers, sowie die Ermäßigung für die Schaffung von Aus- 
bildungsplätzen, 


Die Angaben können Sie der Anlage N, Zeile 25 — 30 entnehmen, 


urn aa > 


Kurzerklärung : An- u. Abrechnung 


Einzugeben sind die Eintragungen der <Lohnsteuer>, <Kirchensteuer>, <Kapital- 
ertragssteuer> und <Körpsrschaftssteuer> laut Dividendenbescheinigung. 


Die Angaben der Lohn/Kirchen-Steuer kann der Anlage N, Zeile 1 - 5 entnommen 
werden, 


Bitte wählen Sie ihwseräneree <i>onuo Zr > 


Abkürzungen 


Die wichtigsten Abkürzungen in alphabetischer Reihenfolge: 


AbS, suuas. Absatz 

AFA vaaraca Absetzung für Abnutzung 

ALB ;...... Arbeitslosenbeihilfe 
Arbeitslosengeld 

BAFOEG ... Bundesausbildungsföderungsgesetz 

Batr, z.« Betrioh 

ESTG =+.- Einkommensteuergesetz 

Einkommensteuer 

FA “se... Finanzamt 

FG usa Förderungsgesetz 

KUG vo42.4. Kurzarbeitergeld 
Paragraph 
Schlechtwettergeld 
von Tausend 


wählen Si® „..u.=s=.n042-. <M>enue ——> 
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Fortsetzung von Seite 44 





OS7B FO 06 78 BEQ ENDE 
‚ ’ 037D 20 ED FD 79 JSR COUT 
CHORZ $057B Cursor horizontal 0380 E8 80 INX 
CVERT $05FB Cursor vertikal 0381 DO F5 8 BNE CLOSE 
BYTE $067B /O-Byte für PASCAL 0383 20 22 FC 82 ENDE JSR VTAB ‚normalisiere Gursor 
; s 0386 20 95 FE 83 JSR SETVID 
START $06FB  Bildschirmanfang 0389 AC DO 03 84 JMP DOS ;Warnstart 
POFF $077B Kaltstart, GOTOXY, Ctrl-Z 038C 85 * 
FLAGS $07FB Video-Schalter u. -Flaggen 0386 8D 84 86 TEXT un 
OS8E CF DO C5 87 ASC "ÖPENSCHIRMTEXT" 
5 0391 CE D3 C3 
Bl, POFF und FLAGS sollen uns in 0394 C8 C9 D2 
diesem Zusammenhang nicht weiter inter- en = Ss = 
essieren. Fassen wir außerdem den Bild- 039C 8D 84 88 HEX 8D84 
schirmaufbau grafisch zusammen, wobei 039E D7 D2 CO 89 ASC "WRITESCHIRMTEXT" 
wir vereinfachend annehmen, daß sich der EEE 
Bildanfang bei $CC00 in Bank O befindet 0347 D2 CD DA 
| 1 OSAA C5 DS DA 
(siehe Diagramm N). 03AD 8D 00 90 HEX 8DO0 
i 2 De OSAF 8D 84 31. TEXT HEX 8D84 
Wir betrachten also aus dem 2K-RAM im ee en 
mer nur ein großes Fenster, das jetzt be- 03B4 D3 C5 
liebig herauf- und heruntergeschoben 2 ADD 2 Be 
00B8 94 ZEND EQU *-START 


werden kann, denn intern schließt sich an 
die Bank 3 wieder die Bank O an. Wird für 
uns der Bildschirm z.B. um eine Zeile nach VIDEXT 

oben geschoben, verändert die Videx-Kar- 

te den tatsächlichen Speicherinhalt nicht. re er 
Lediglich das Fenster wandert eine Zeile Aufrufen mit CALL 768 
nach unten, indem die Zeiger neu gesetzt 





1 & VIDEXT 
werden. Das geht bedeutend schneller, 3% 
als fast 2K um jeweils 80 Bytes zu ver- ? * Videx 80 Z/Z -> Diskette 
: * 
schieben! FDED 5 coUT EQU $FDED 
O3DO 6 DOS EQU $3DO 
2 E O3EA 7 DOSHOOK EQU $3EA 
Das Auslesen des Bildschirms ooD9g B RUNMODE es $D9 
ö e e e 0038 9 PROMPT BP2 533 
Nachdem wir nun das Prinzip des Bild- 0075 10 CURLIN EPZ $75 
schirmaufbaus verstanden haben, können = Er an 
wir beginnen, ihn auszulesen und abzu- C300 13 INIT  EQU $C300 
speichern. Eigentlich funktioniert das ge- FF58 ]4 RETURN EQU $FF58 
nauso wie beim 40-Zeichen-Schirm, nur = Bann 
daß wir hier eine andere Art der Positions- 17 %* 
berechnung durchführen müssen. Der Ap- Ka = S Er 
ple-Monitor hat leider keine Routine bereit, 0300 20% 
aber wir können einen Teil des Videoterm- er = en u Tr 
ROMs adaptieren. Wir benötigen folgende 0ATB 23 BASEL EQU $47B :LL * Adresse im Bild- 
Informationen: OAFB 24 BASEH EQU $4AFB ;HH * Schirmspeicher 
. COBO 25 DEVO EQU $C0BO ‚Bank Auswahl 
1) Start des Bildes CCOO 26. »DISEO EQU $CC00 ;2. Speicherseite 
2) Start der jeweiligen Zeile CDOO 27 DISPL EQU $cDoo ;2. Speicherseite 
3) RAM-Bank 20 a 
j 03009 29  %* 
4) Seite $CC00 oder $CDOO. 0300 30 %* 
Wenn wir den Cursor in die erste Zeile | 0300 20 EA 03 3l START JSR DOSHOOK ;DOS Anhängen 
: s 3 | 0503 BD EFF CH 32 STA COROM ;‚Koresidente ROMs abschalten 
stellen, sind Zeilenanfang und Bildstart 0306 8D 00 03 33 STA INIT ;Videx-ROM einschalten 
identisch, so daß die Punkte 1) und 2) zu 0309 A9 99 34 LDA #$99 ;Ctrl-Y 
: T ;H 
einer Aufgabe verschmelzen. Ctri-Y be- ne ts De 
wirkt dieses „HOME CURSOR“, ohne den 0310 85 33 37 STA PROMPT ;ein laufendes 
i t = 2 0sl2 82 76 38 STA CURLIN+I ‚Applesoftprogramm 
Bildschirm 2. löschen. BASEL und BA 0314 85 D9 39 STA RUNMODE ‚vortäuschen 
SEH liefern dann die Adresse, aus der wir 0316 A9 58 40 LDA +RETURN ‚direkte Bildschirm- 
nur noch RAM-Bank und Speicherseite re ae = ss eruke Al Es un uzuchen 
extrahieren müssen. Dies geschieht durch 031D ED 5AAk 43 STA DOUT+L 
„Bitschieben“ und ist erst auf den zweiten 0320 A2 00 44 LDX #0 
: : : O322 BD 83 03 45 DISK EDA-STERT X 
Blick durchsichtig. 0325 FO 06 46 BEQ DRUCK 
Der Zeilenbeginn liegt irgendwo zwischen 0327 20 EDFD 47 JSR COUT 
$0000 und $07FF. Betrachten wir hiervon ee Sn = ® En e 
nur das höherwertige Byte, so gibt es acht 032D 50% 
Möglichkeiten, die folgende Tabelle zu- 032D A9 18 51 DRUCK LDA #24 ‚Zeilenzahl 
sammenfaßt: 032F A2 50 52 WVIDEX1 LDX #80 :Zeichenzahl 
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High-Byte Dualzahl Seite Bank 
00 0000 $CC00 0 
01 0001 $CDOO 0 
02 0010 SCCO0 1 
03 0011 $CDOO 1 
04 0100 $CC00 2 
05 0101 $CDO0 2 
06 0110 10101010 3 
07 0111 $CDO00 3 


Schauen wir uns die Dualzahi genauer an, 
so stellen wir fest, daß immer eine 0 in Bit 
O und Seite $CC00 bzw. eine 1 in BitO und 
Seite $CDO00 zusammenfallen. Um das 
niederwertige Bit zu testen, schieben wir 
es mit der LSR-Instruktion ins Carry-Bit, 
das mit PHP „gerettet“ wird. Es dient in 
Zeile 65 des Listings zur Auswahl der Sei- 
te, 

Bleibt die Frage nach der Bank. Unsere 
Dualzahl hatte vor dem Schieben Einsen 
in den Bits 0, 1 und 2. Nach dem Rechts- 
schieben befinden sie sich nur noch in den 
Bits O und 1. Mit dem Befehl AND #$03 
blenden wir den Rest des Bytes (Bit 7-2) 
weg. Jetzt wird zweimal nach links ge- 
schoben und hinten jeweils eine 0 ange- 
fügt (= ASL). Dadurch erhalten wir für die 
High-Bytes $00 und $01 eine $00, für $02 
und $03 eine $04, für $04 und $05 eine 
$08 und schließlich für $06 und $07 eine 
$0C. Für High-Byte = $06 noch einmal die 
Einzelschritte: 


$06 = 0110 Carry ? 

LSR — 0011 Carry 0 — Seite $CCOO 
ASL = 0110 

ASL =- 1100 = $0C 


Den erhaltenen Wert tauschen wir ins Y- 
Register und sprechen damit indiziert den 
richtigen Bank-Schalter an. 

Unser Ausleseprogramm ist noch in eine 
innere Schleife für 80 Zeichen und eine 
äußere Schleife für 24 Zeilen eingebettet. 
Die Diskettenbefehle entsprechen dem 
Programm SCHIRMDISK, nur wurde eine 
Variante zur Vortäuschung eines laufen- 
den BASIC-Programms verwendet. VI- 
DEXT (= VIDex zu tEXTfile) wurde für den 
Speicherbereich ab $0300 assembliert 
und kann mit - 

BSAVE VIDEXT, A$0300, L$00AD 
abgespeichert werden. Von BASIC aus 
wird es mit einem CALL 768 gestartet und 
legt dann einen Textfile namens „VIDEX- 
TEXT" auf Diskette ab. Ein Programmstart 
mittels Reset wurde nicht realisiert, weil 
dabei einige Register in Unordnung ge- 
raten. 
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0349 
D3AB 
OSAD 
DOAD 


FB 


03 


BO 


05 


03 
00 
TB 
03 
FB 


ED 


D7 


04 


co 


CC 


CD 
04 


FD 


91 


95 


94 
95 


96 
Sr 
98 
39 


100 
101 
102 


PHA 


:Retten 


** Routine verändert nach Videx-ROM ** 


VIDEX2 


VIDEX3 
VIDEX4A 


LDA 
LSR 
PHP 
AND 
ASL 
ASL 
TAY 
STA 
LDY 
PLP 
BCS 
LDA 
BCE 
LDA 
INC 
BNE 
INC 


BASEH 


DEVO,Y 
BASEL 


VIDEX3 
DISPO,Y 
VIDEX4 
DISPI,T 
BASEL 
VIDEXO 
BASEH 


;Hi-Byte-Position 


;%0000 0011 


:Softswitch für Bank 
;Low-Byte-Position 


‚l. Seite 


:2, Seite 

‚erhöhe Low-Bytes 
;Überlauf? 

;:dann auch Hi-Byte 


** Ende verändertes Videx-RÜM ** 


VIDEXS 


CLOSE 


ENDE 


TEXT 


TEXTIL 


* 
ZEND 


JSR 
DEX 
BNE 
PLA 
SEC 
SBC 
BNE 


LDX 
LDA 
BEQ 
JSR 
INX 
BNE 
JSR 
JMP 


ASt 


HEX 
ASC 


HEX 
ASC 


HEX 


HEX 
ASC 


HEX 


EQU 


COUT 


VIDEX2 


#1 
VIDEX1 


#0 
TEXT1,X 
ENDE 
COUT 


CLOSE 
6C300 
DOS 


;Zeichen ausgeben 


;bis Zeile fertig ist 
:hole Zeilenzähler zurück 


‚nächste Zeile 
;bis alle fertig sind 


‚Bildschirm ankoppeln 
‚Warnstart 


"1984 DR. KEHREL" 


8D84 


"OPENVIDEXTEXÄT" 


8D84 


"WRITEVIDEXTEXT'" 


8DO0 


8D84 
"CLOSE" 


8DOO 


#*-START 


Hinweis: Diese Programm wurde mit dem LISA-Assembler erstellt. 
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Programmierzeif auf cie Hälfte gekürzt! 
speicherbedarf auf ein Drittel reduziert! 


EXBEASIC LEUELIT 


Mit EXBASIC LEVEL II können Sie Ihren Compufer 
um ein Vielfaches einfacher und effizienter Dro- 
grammieren. Sie haben über 75 neue, Außerst 
leistungsfähige Funktionen, die den Erfordermnis- 
sen moderner Soffware-Erstellung entsprechen. 
Für an von 


@gappie C: commodore 


EXBASIC LEVEL II ist bereits weltweit im Einsatz. 
Schreiben Sie sofort „Schicken Sie kostenlos aus- 
fuhrliche Informationen zu EXBASIC LEVEL I für 
(genauen Computertyp angeben)” 
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8000 München 80 
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ELECTRONIC ARTS _ORIGIN SYSTEMS DATASOFT 
In Amerika schon Standard... 
hier groß im Kommen : 


Mockingboard 


Sprach- und Tongenerator für Apple II, //e 
6-stimmiger Stereoton mit den neuen 
Pragrarnmen der großen Softwarehöuser : 
*Music Construction Set *One Un One 
#5kyfox *Ultima Ill *2axxon uv.m. 


Appleland Walliser & Co. 
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SNOILY INKIS IOIIVSLS- 


WS 2000 


WORLD STANDARD 





T« DATA 
RxDATA 
EN 


tat 


ONLINE ON LINE 


11a 


EunTEn 


iocaL rest | WW 


ka Modem WS 2000 





Die neue Version dieses weltweit 
benutzten professionellen Modems 


—- immer noch zum un- 


schlagbaren Preis von DM 798,— 


x 


Datenaustausch und Kommunkation mit praktisch 
jedem Computer weltweit möglich 


Zugriff zu Datenbanken, Mailboxen, Btx, Bix rück- 
wärts usw. 


Telex für alle durch einen neuen Dienst — mit Ihrem 
Computer und dem WS 2000 (fragen Sie uns) 


Alle gängigen Baudraten (75, 300/300, 600, 1200, 
1200/75, 75/1200) und international üblichen Über- 
tragung-Standards (CCITT, BELL) — umschaltbar 
per Hand oder per Computer (IC-Satz SK1 hierfür 
DM 96,90; Anschlußkabel UPL DM 48,-) 


Automatisches Wählen mit Zusatzplatine AD2 
(DM 199,50) und Kabel UPL 


” Automatisches Annehmen von Anrufen mit Zusatz- 


platine AA2 (DM 199,50) 


x Einfacher Anschluß (parallel zur Telefonleitung); 


x 


eingebautes Netzteil; deutsche Anleitung; 1 Jahr 
Garantie 

Viele Interfaces lieferbar; z. B. 

CBM | für C64/VIC20 einschl. Listing DM 136,80 
AC Kommunikations-Karte für APPLE DM 330,60 
SPEC für SPECTRUM einschl. Software 

(auf ROM) DM 256,50 
Anschlußkabel zwischen Computer und Modem 
(bitte benötigten Steckertyp angeben) DM 57,- 
Liefermöglichkeit: sofort ab Lager Hamburg 

Alle Preise einschließlich MwSt. zuzüglich Ver- 
packung, Porto und Nachnahme (Bei Vorauszah- 
lung durch V-Scheck/Überweisung Porto und Ver- 
packung frei) 


Claus F. Erbrecht 


Computer Related Products 
Lappenbergsallee 37 : 2000 Hamburg 20 
Telefon 040/850 5255 

Bankverbindung: Bank für Gemeinwirtschaft 
BLZ 200 101 11, Konto-Nr. 1241 223700 


Achtung: Nur für hausinterne Telefon-Anlagen und 


nicht amtsberechtigte Nebenstellen — 


in der BRD ist der 


Anschluß an das öffentliche Telefonnetz nicht gestattet! 
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von Dieter Geiß 


Viele Berichte und Aufsätze befassen 
sich mit dem Aufbau des Inhalisver- 
zeichnisses (Directory) auf pascalfor- 
matierten Disketten. In den meisten 
Darstellungen werden jedoch nicht alle 
Komponenten des Directory erfaßt, in 
keinem Artikel wirklich alle Komponen- 
ten genau erklärt. Deshalb bringen wir 
nunmehr eine umfassende Analyse 
des Directory, die auch als theoreti- 
sche Basis für das GETPAS-Programm 
dient. 
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Jede Diskette, die unter einem UCSD- 
Pascal-Betriebssystem für Apple-Compu- 
ter formatiert wurde, ist in logische Blöcke 
unterteilt. Ein Block beherbergt 512 Bytes, 
und auf einer normalen 140K-Diskette ha- 
ben 280 Blöcke Platz. Auf Block 0 und I 
steht das Maschinenprogramm für den 
Boot-Vorgang. Ab Block 2-5 folgt das Di- 
rectory, das genau 4 Blöcke umfaßt. Die 
letzten 20 Bytes bleiben unbenutzt. Ab 
Block 6 folgt dann entweder ein zweites 
Directory, das sog. „Duplicate-Directory”, 
oder der freie Diskettenplatz zum Abspei- 
chern der Files (siehe Abb. 1). 

Das „Duplicate-Directory“ wird vom Pas- 
calsystem wie das Original-Directory ge- 
führt, und sollte letzteres einmal defekt 
sein, was nicht selten vorkommt, so kann 
man mittels eines kleinen Programms (s. 
COPYDUPDIR) das „Duplicate-Directory“ 
auf das Original-Directory überspielen. 
Voraussetzung ist allerdings, daß das 
„Duplicate-Directory“ angelegt wurde. 
Dies kann man im FILER mit Hilfe des 
Zero-Kommandos bewerkstelligen. Für 
Datendisketten, auf denen sich viele Pas- 
cal-Programme befinden, ist das durchaus 
anzuraien. 

In Listing 1 ist die vollständige Definition 
des Directory enthalten 


Die Konstanten 


Maxdir (Maximum Number of Directory 
Entries) gibt die maximale Anzahl der Ein- 
träge im Directory an. Der erste Eintrag ist 
mit Null indiziert und definiert die Art des 
Directory. Dann kommen die Angaben für 
insgesamt 77 Files. Mehr Files können 
niemals im Directory stehen, auch wenn 
man die Anzahl der Directory-Blöcke 
künstlich erhöht. 

In der Anleitung, die zu den Teac-Laufwer- 
ken mitgeliefert wird, ist zu lesen, daß die 
Kapazität des Directory erhöht wurde, da 
die Laufwerke bis zu 1280 Blöcke pro 
Diskette ansprechen können. Da alle Sy- 
stemkomponenten wie SYSTEM.PAS- 





Pascal-Directory unter 
der Lupe 


Diskette 


Directory 


„Duplicate-Directory’ 


oder frei 


freier 
Diskettenplatz 


Diagramm 1 


CAL, SYSTEM.FILER etc. immer nur 4 
Blöcke einlesen können, kann die Modifi- 
kation, die die Teac-Techniker anspre- 
chen, niemals funktionieren, es sei denn, 
daß das Betriebssytem selbst völlig umge- 
schrieben wurde. 

Vidieng (Volume Identification Length) 
begrenzt die Anzahl der Buchstaben in 
einem „Volume-Namen“ auf 7. 

Tidieng (Title Identification Length) gibt 
an, aus wievielen Buchstaben sich ein 
File-Name maximal zusammensetzt. Die- 
se 15 Buchstaben dürfen keine Leerzei- 
chen oder Ctrl-Zeichen enthalten. 
Fblksize (File Block Size) bedeutet die 
Anzahl der Bytes pro Diskettenblock 
(Block Size = Blockgröße). 

Dirbik (Directory Block) definiert die Stelle 
auf einer Diskette, auf der das Directory 
steht (erster Block). 


Dupdirbik (Duplicate Directory Block) 
zeigt auf die Stelle des „Duplicate-Direc- 
tory“ (erster Block). 


Die Typen 


Daterec (Date Record) ist die Definition 
des Datums im Pascal-Betriebssystem. 
Ein Datum ist, da es in einem gepackten 
Record steht, immer 16 Bit groß. Beim 
Jahr muß man sich ein 19.. hinzudenken, 
was einen Bereich von 1900 — 1999 ab- 
deckt. Steht im Directory-Eintrag eines 
Files das Jahr des dazugehörigen Datums 
auf 100, so ist dieser File nicht-permanent. 
Einen solchen File kann man in einem 
Programm mittels des Rewrite-Befehls er- 
zeugen. Schließt man den File nicht mit 
der Lock-Option im Close-Befehl, sondern 
nur mit der Normal-Option, dann wird der 
File nicht im Directory gespeichert. Nor- 
malerweise kann man diesen File dann 
nicht mehr sehen, wenn man ein L{ist der 
Diskette ausgibt. Ein normaler Close-Be- 
fehl wird vom Compiler immer in den Code 
eingefügt, wenn irgendwelche Files be- 
nutzt werden. Deswegen dürfte eigentlich 
der Fall eines falschen Jahrs im Datum 
niemals auftreten. 

Manchmal steigt der Compiler aber auch 
wegen zu geringen Speicherplatzes mit 
Stack Overflow aus. Dann kann dieses 
Datum nicht mehr verbessert werden, weil 
das System neu gebootet werden muß. 
Man kann dann diesen File auch nicht 
mehr im FILER mit R(emove ‚File-Name‘ 
löschen, weil der File nicht mehr gefunden 
werden kann. Mit einem R(emove und 
xXX=, falls der Name z.B. XXX lautet, 
erreicht man dann aber doch ein Löschen 
des Files. Manchmal wird ein solcher File 
auch vom System gelöscht; darauf kann 
man sich aber leider nicht verlassen. 
Dirrange (Directory Range) Ist der zulas- 
sige Bereich für Indizierungen in das Di- 
reciory. 

Vid (Volume Identification) definiert den zu 
Vidleng gehörigen String, während 

Tid (Title Identification) den zu Tidleng 
gehörigen String definiert. 

Filekind ist ein Aufzählungstyp, der alle 
Arten von Files benennt, die im Directory 
vorkommen können. Dazu gehören: 
Untypedfile: Von diesem Typ ist der Di- 
rectory-Eintrag selbst und steht zuerst in 
Block 2; entspricht der Indizierung des 
Directory-Arrays mit dem Index 0. 
Xdskfile (Examined Disk File) ist Bad File 
mit defekten Blöcken, der mit dem FILER- 
Kommando X(amine markiert werden 
kann. Daher ergibt sich die seltsame Ab- 
kürzung für ein markiertes d(i)skfile. 


Codefile, Textfile, Infofile, Datafile, 
Graffile, Fotofile sind als File-Typen er- 
zeugbar, wenn eine Datei mit dem ent- 
sprechenden Suffix .CODE, .TEXT usw. 
geöffnet wird. Ob ein Codefile dann tal- 
sächlich Code, ein Graffile tatsächlich ein 
Grafikbild enthält, ist eine Sache der Inter- 
pretation. Auch eine zufällige Anordnung 
von Bits kann man als — wenn auch nicht 
gerade ästhetische — Grafik ansehen. 


Securedir (Secure Directory) ist in kei- 
nem Handbuch dokumentiert, was aber 
nicht bedeutet, daß es hier nicht erklärt 
werden kann. Untersucht man nämlich 
den Pcode des Pascalsystems genauer, 
so entdeckt man in Segment 5 (GETCMD) 
und Segment O (PASCALSYSTEM), wann 
ein Securedir abgefragt wird. Um zu ver- 
stehen, was dort vor sich geht, muß man 
sich auch den Informations-File SYSTEM.- 
MISCINFO genauer ansehen. Der File SY- 
STEM.MISCINFO wird beim Booten des 
Systems und bei dessen Initialisierung 
eingelesen. Darin befinden sich die Infor- 
mationen über die Konfiguration des Sy- 
stems wie Höhe und Breite des Bild- 
schirms, ob eine Uhr angeschlossen ist 
usw. In diesem File befindet sich aber 
auch eine Variable namens ‚Userkind‘. 
Diese Variable ist vom Aufzählungstyp und 
kann folgende Werte annehmen: Normal, 
Aauiz, Booker und Pquiz. Beim regulären 
System wird diese Variable auf Normal 
initialisiert, und da diese Variable nicht oh- 
ne einen Trick im File SYSTEM.MISCINFO 
verändert werden kann, bleibt in ihr auch 
der Wert erhalten. Das Pascalsystem ver- 
sucht bei Zugriff auf ein Directory zu er- 
kennen, ob dieses gültig Ist. Ob dies der 
Fall ist, hängt von der Art des Directory 
(Untypedfile, Securedir) sowie vom User- 
kind ab. Ein Directory ist genau dann ein 
gültiges Pascal-Directory, wenn 

a) der Dfirstblk (s.u.) gleich Null und der 
Userkind gleich ‚Booker’ ist, 

b) der Typ des Directory gleich Securedir 
und der Userkind entweder ‚Aquiz‘ oder 
‚Pquiz‘ ist (Die ausgeschriebenen ameri- 
kanischen Ausdrücke für Aquiz und Pquiz 
konnten noch nicht ermittelt werden.), 

c) der Typ des Directory gleich Untypedfile 
und der Userkind gleich ‚Normal‘ ist. 

Fall c) ist der Normalfall. 

Nachdem die Einzelfälle abgetestet wur- 
den, versucht das System zu erkennen, 
ob die Directory-Einträge in Ordnung sind. 
Dazu wird die Länge der Dvid und die Zahl 
der Files auf der Diskette (Dnumfiles) 
überprüft. Da der Dfirstblk auf allen Disket- 
ten immer auf Null gesetzt ist, kann man, 
wenn man sich im Modus ‚Booker‘ befin- 































































ı INPUT 2.0 


Ein Bildschirm-Maskengenerator 
für DOS 3.3 und ProDOS 
von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1021-5 


Der für den Apple Il bestimmte Mas- 
kengenerator „Input 2.0" basiert auf 
den früheren Programmen „Input 
1.0“ und „Input 80 1.0“ (von denen 
noch Restbestände lieferbar sind) 
und ist sowohl unter DOS 3.3 wie 
auch unter dem neuen ProDOS lauf- 
fähig. Der Maskengenerator setzt ei- 
nen Apple Il Plus mit Language Card 
oder einen Apple Ile voraus. Im 40 Z/ 
Z-Modus funktioniert er auf beiden 
Gerätetypen, im 80 Z/Z-Modus dage- 
gen nur auf dem Apple Ile mit 80- 
Zeichen-Karte. (Die alte Videx-Karte 
für den Apple II wird nicht unter- 
stützt!) 

„Input 2.0“ liegt wahlweise in der 
| Bank 1 oder Bank 2 der Language 
Card und wird durch einen kurzen 
Driver in den unteren 48K aufgerufen. 
„Input 2.0“ läßt sich problemlos in 
nicht-compiliete und compilierie 
Applesoft- sowie in Assemblerpro- 
gramme einbinden. Die Übergabe der 
Feldinhalte an das Anwenderpro- 
gramm erfolgt durch ein einfaches 
Verfahren, das auch bei Compilern 
| funktioniert. 

Für jedes Feld der Bildschirmmaske 
lassen sich u. a. definieren: Feldlänge 
(bis zu 255 Zeichen) — Vtab — Htab — 
Datentyp (insgesamt 38 Typen) -— 
Scroliflag (starre oder dynamische 
Maske) — Ctriflag — Füllflag — Lösch- 
flag - Bildschirmflag (40- oder 80 Zei- 
chendarstellung). Innerhalb eines 
Eingabefeldes besteht jeder denkba- 
| re Redigierkomfort (Insert, Delete, 
Rubout, Restore usw.). 

Bei der neuen Version des Masken- 
generators können jetzt auch Ctrl- 
Zeichen beim Datentyp String einge- 
geben werden. Ferner sind — das gilt 
nur für lle — die Apfeltasten als 
schnelle Cursortasten definiert. 
Gerätevoraussetzung: Apple Ile oder 
lic; ferner Apple II+ im 40-Zeichen- 
| modus 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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det, die Directories aller Disketten lesen, 
ob Securedir oder Untypedfile. Steht im 
Userkind der Wert für ‚Normal‘, so kann 
man zwar normale, nicht jedoch Secure- 
Directories lesen. Dies erklärt auch den 
Namen des „sicheren Directory". Sie sind 
vor jedem normalen Benutzer sicher. Im 
Userkind ‚Aquiz‘ und ‚Pquiz‘ kann nur ein 
Secure-Directory gelesen werden, keines 
vom Typ ‚Untypedfile‘. Während man im 
‚Pquiz‘-Modus normal arbeiten kann, also 
editieren, compilieren usw., geschieht im 
‚Aquiz‘-Modus folgendes: 

Nach dem Booten der (Secure-Directory-) 
Diskette wird wie beim normalen Booten 
zuerst der File SYSTEM.ATTACH gestar- 
tet, mit dem man Disketten- oder Drucker- 
treiber anschließen kann. Danach wird wie 
gewöhnlich SYSTEM.STARTUP geladen 
und ausgeführt. Das entspricht beim DOS 
dem sogenannten HELLO-Programm, 
beim ProDOS dem STARTUP-Programm. 
Nach dessen Ablauf geht das System aber 
nicht in die Kommandozeile, sondern 
sucht den File SYSTEM.WRK.CODE, um 
ihn zu starten. Nach dessen Ablauf bootet 
das System neu. Ist nur der SY- 
STEM.WRK.TEXT allein vorhanden, wird 
er zuerst compiliert, bevor er ausgeführt 
werden kann. Ohne SYSTEM.WRK.TEXT 
wird ein noch zu spezifizierender File 
compiliert und ausgeführt. Das Secure- 
Directory ist also dazu da, um im Userkind 
‚Aauiz‘ das Programm im File SY- 
STEM.WRK.CODE auszuführen und dann 
wieder neu zu starten. Da kein normaler 
Benutzer das Directory lesen kann, kann 
auch keiner ohne weiteres die einzelnen 
Files kopieren. Die ganze Diskette hinge- 
gen kann ganz normal im FILER oder z. B. 
mit COPYA kopiert werden. Selbst kann 
man solche Disketten allerdings nicht her- 
stellen, da man sonst im Initialisierungs- 
segment des Pascalsystems etwas ändern 
müßte. Selbst wenn man mit einem Disk- 
Read-Write-Programm das Directory auf 
Securedir und auch im SYSTEM.MISCIN- 
FO den Userkind auf ‚Aquiz‘ verstellt, so 
kann das System die Diskette nicht lesen, 
denn der Userkind wird beim Booten auf 
‚Normal‘ gestellt, bevor SYSTEM.MISCIN- 
FO eingelesen werden kann. Man müßte 
also entweder SYSTEM.APPLE oder SY- 
STEM.PASCAL patchen. So scheint das 
Secure-Directory nur für System-Pro- 
grammierer gedacht zu sein. 

Man sollte im übrigen Secure-Directories 
nicht mit Duplicate-Directories verwech- 
seln, denn beide haben nichts miteinander 
zUALUm: 

Subsvol (Subsidiary Volumes) sind Un- 
terdirectories, ähnlich wie beim ProDOS, 
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Directory [1] 





Diagramm 2a: Directory [0] und [1] 


anderen Einträgen enthält Dfirstblk immer 
den korrekten Wert für den Anfang des 
Files. 

Dlastbik (Last Block of Disk File) zeigt 
nicht etwa auf den letzten Block des Files, 
sondern auf den Block, der diesem folgt. 
Die Variable müßte eigentlich Dnextblk 
heißen. Dlastblk zeigt beim Eintrag des 
Directory selbst auf Block 6 oder 10, in 
Abhängigkeit davon, ob ein „Duplicate- 
Directory“ angelegt wurde oder nicht. 
Dfkind (Disk File Kind) unterscheidet nun, 
um welchen Typ es sich bei dem jewelli- 
gen File handelt. Im Falle eines Directory, 
also des Typs Untypedfile oder Securedir, 
verzweigt die Definition in den ersten Ast 
mit seinen Variablen. 

Fillert ist ein 13-Bit-Füller für Aufwärts- 
kompatibilität. 

Dvid (Disk Volume Identification) enthält 
den Namen der Diskette und darf sieben 
Buchstaben nicht überschreiten. 

Deovbik (Disk End of Volume Block) ent- 
hält die Anzahl der Blöcke, die auf einer 
Diskette vorhanden sind. Diese Zahl muß 
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Diagramm 2b: Directory [0] und [1] als Sektor-Dump 


aber sie sind erst in Pascal IV.1 implemen- 
tiert und nur der Vollständigheit halber im 
Filekind mit aufgenommen, da Pascal- 
IV.1-Disketten den gleichen Aufbau des 
Directory haben. Ein Subsidiary Volume 
sieht nach außen aus wie ein File. In ihm 
befindet sich aber in den ersten sechs 
Blöcken wieder ein vollständiges Directo- 
ry, das dann über weitere Unitnummern 
angesprochen werden kann. 

Direntry (Directory Entry) ist der eigentli- 
che Eintrag im Directory. In diesem Re- 
cord wird unterschieden, ob es sich um 
Directory-Informationen oder um File-In- 
formationen handeln soll. Gleich sind aller- 
dings die beiden ersten Variablen des Re- 
cords. Zum folgenden s. Abb. 2a und 
Abb. 2b. 

DfirstbIk (First Block of Disk File) zeigt auf 
den ersten Block des Files. Ist der Eintrag 
ein Directory, also vom Typ Untypedfile 
oder Securedir, dann enthält Dfirstolk im- 
mer die Zahl 0, obwohl sich die erste 
gültige Information auf Block 2 befindet. 
Dies ist die einzige Ausnahme. Bei allen 


also geändert werden, wenn man größere 
Laufwerke anschließen will. 


Dnumfiles (Number of Files in Directory) 
ist die aktuelle Anzahl von Files, die sich 
auf der Diskette befinden. 


Dioadtime (Disk Load Time) gibt die Zeit 
an, wann das Directory zum letzten Mal 
gelesen oder geschrieben wurde. Nur 
wenn eine Uhr im Rechner eingebaut ist, 
wird diese Zahl benutzt, um festzustellen, 
ob ein Directory aktualisiert werden muß. 


Dlastboot (Last Boot of Disk) schließlich 
ist das Datum, das man mit Hilfe des 
D(ate-Kommandos im FILER setzen kann 
und das beim Booten in das System-Da- 
tum übernommen wird. 

Ist die Art des Eintrags ein File, so ver- 
zweigt die Definition in den anderen Ast. 
Filler2 ist ein 12-Bit-Füller für Aufwärts- 
kompatibilität. 

Status wird vom FILER benutzt, um die 
Files zu markieren, die mit einem „Wild- 
card“ angesprochen wurden. 

Dtid (Disk Title Identification) ist der Name 


DISTAR für APPLE-II r IBM u.ä. 


x APPLE-Il kompatibel % Stahlband-Positionierung 
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% Direktantrieb CP/M 
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Wir sind DISTAR-Distributor 
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| -- bi ae & Harddisk 10MByte mit Host-Adapt 4990,-- 
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des Files, der eine Länge von maximal 15 
Buchstaben haben kann. 

Dlastbyte (Last Byte of Disk File) gibt an, 
welches das letzte Byte im letzten Block 
ist, das beim Lesen benutzt werden soll. 
Das System erkennt an dieser Variablen, 
wann ein File zu Ende ist, wenn es sich 
bereits im letzten Block befindet. Nur bei 
Data-Files, z. B. einem File of Integer, wird 
diese Zahl benutzt. Text- oder Codefiles 
haben immer eine 512 in Dlastblk. 
Daccess (Disk Access) ist das Datum, das 
immer gesetzt wird, wenn der File modifi- 
ziert worden ist. Dies wird intern durch den 
Close-Befehl bewirkt. Das Jahr im Datum 
wird — wie schon oben erwähnt — benutzt, 
um nicht-permanente Files zu markieren. 


Directory ist nun das Array von Directory- 
Einträgen, also das die gesamten 4 Blocks 
umfassende Directory. Das Element, das 
mit O indiziert wird, also Directory [0], ist 
vom Typ Untypedfile oder Securedir und 
enthält die Information für das Directory 
selbst. Die anderen Einträge enthalten die 
Information für die Files. 


Mit der Directory-Definition in einem Pro- 
gramm kann nun ein Benutzer Diskeiten- 
informationen verwerten und auch modifi- 
zieren. In dem Beispielprogramm (COPY- 
DUPDIR) wird das „Duplicate-Directory” 
einer Diskette auf das normale Directory 
überspielt, wenn erkannt wird, ob dieses 
defekt ist. Das Programm fragt nach der 


Unitnummer, die eine der Zahlen 4, 5, 9, 
10, 11 oder 12 sein kann. Dann wird das 
Directory gelesen. Ist das Original-Direc- 
tory in Ordnung, wird das Programm ver- 
lassen. Andernfalls wird es auf das Origi- 
nal-Directory übertragen. Wenn auf der 
Diskette die Blöcke 2-6 schlecht sind, 
müssen diese zuerst repariert werden, 
was z. B. im FILER mit dem X(amine- 
Kommando gemacht werden kann. Nach 
Ablauf des Programms ist das Directory 
der Diskette wiederhergestellt. 


GETPAS: Konvertierung von Pascal- in DOS-Textifiles 


von Ulrich Stiehl 


Unsere „Peeker“ wird kompleit auf dem 
Apple Ile erfaßt, wobei die Druckerei ko- 
dierte DOS-Textfile-Disketten zur Übertra- 
gung in die Lichtsatzanlage erhält. Zu die- 
sem Zweck wurde ein superschnelles 
Transmitterprogramm entwickelt, das mit 
einer Übertragungsrate von bis zu 1000 
Bytes/Sekunde (einschließlich des Einle- 
sens der Dateien von der Apple-Diskette!) 
die Daten online über eine V.24-Schnitt- 
stelle an den Großrechner der Satzanlage 
schickt, Neben dem Transmitterprogramm 
mußten mehrere Spezialprogramme zur 
Vorkodierung und zur Konvertierung in 
DOS-Textfile-Format geschrieben wer- 
den. In diesem Peeker-Heft sowie in den 
folgenden Ausgaben werden wir einige 
der interessanteren Spezialprogramme 
vorstellen. 


GETPAS 


Das nachstehend gelistete Programm 
GETPAS zur Konvertierung von Pascal- in 
DOS-Textfiles stammte ursprünglich von 
Dana J. Schwartz vom Washington Apple 
Pie. Es hatte jedoch einen Bug, der bei 
größeren Dateien zu einer Zerstörung des 
DOS-Catalogs führte, und außerdem war 
es für unsere Zwecke viel zu langsam. 
Deshalb wurde es gestrafft, völlig umge- 
schrieben und durch ein Assemblerpro- 
gramm für alle zeitkritischen Routinen er- 
weitert, so daß es jetzt eine Datenübertra- 
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gungsrate von bis zu 480 Bytes/Sekunde 
(bei Diversi-DOS und NOMON) für Einle- 
sen und Speichern vorweisen kann. 


Konvertierungsvorgang 


Aus Gründen der Geschwindigkeit und 
der Speicherkapazität ist das GETPAS- 
Programm „gekruncht“ und damit weitge- 
hend undurchschaubar. Deshalb geben 
wir hier nur einige generelle Anmer- 
Kungen: 

1. GETPAS erwartet die DOS-Diskette in 
S6, D1 und die Pascal-Diskette in S6, D2, 
ist also nur für 2-Drive-Besitzer gedacht. 
Nach RUN GETPAS muß man lediglich 
den Pascal-Textfile-Namen eingeben. Das 
ist alles. Ist der Dateiname unbekannt, so 
kann man sich durch Eingabe von Return 
allein zunächst das Pascal-Directory an- 
sehen. 

2. Die DATA-Statements poken in den 
Bereich $1800-$18FF ein Maschinenpro- 
gramm, das die RWTS, die Tab-Konvertie- 
rung usw. umfaßt. Der Quellcode hierzu ist 
auf der Peeker-Sammeldiskette enthalten. 
3. Der Speicherbereich $1900-$20FF 
nimmt zunächst die 4 Pascal-Directory- 
Blocks 2-5 auf, aus denen der Name so- 
wie die erste und letzte Blocknummer der 
Datei extrahiert werden. $1900-$20FF 
wird damit nur vorübergehend benötigt. 

A. Danach wird — beginnend mit dem zwei- 
ten Dateiblock — der gesamte Pascal-Text- 


file in 2-Block-Schüben in den Bereich 
$1900-$1CFF eingelesen und von dort In 
den eigentlichen DOS-Textfile-Puffer 
$1D00-$99FF (dies sind maximal 32000 
Bytes) übertragen. Dabei wird die pascal- 
typische Tabulatorkodierung $10 $XX (= 
Tab $XX), wobei $XX - $20 die Anzahl der 
Tab-Spaces impliziert, in echte Leertasten 
konvertiert. Eventuelle Ctrl-Zeichen wer- 
den eliminiert. 

5. Schließlich wird der konvertierte Textfile 
aus dem Puffer, auf die DOS-Diskette ge- 
schrieben. 


Konvertierungsfehler 


Zu den häufigeren Fehlern gehören: 

1. Es sind nicht zwei Laufwerke an Slot 6 
angeschlossen. 

2. Die zu übertragende Pascaldatei ist kein 
Textfile. 

3. Der erzeugte DÖS-Textfile ist größer als 
32000 Bytes. 


Abschließend sei darauf hingewiesen, daß 
HUFFIN mit jedem DOS läuft (DOS 3.3, 
Diversi-DOS usw.), jedoch nicht für Pro- 
DOS gedacht ist. Eine ProDOS-Spezial- 
version wird zu einem späteren Zeitpunkt 
publiziert. Diese ist übrigens erheblich un- 
komplizierter, da Pascal und ProDOS bei- 
de eine gleichartige Diskettenblockorgani- 
sation haben. 


Apple DOS 3.3 

von Ulrich Stiehl 

2. Aufl. 1984, 203 S., kart, 
DM 28,- 


Dies ist die erste deutschspra- 
chige Darstellung des Disket- 
tenbetriebssystems DOS 3.3 
für den Apple Il/Il Plus/lie, die 
sich sowohl an Applesoft- als 
auch an Assembler-Program- 
mierer wendet. Sinngemäß ist 
das Buch zweigeteilt: 

Der erste Teil behandelt aus- 
führlich die dem Applesoft-Pro- 
grammierer zur Verfügung ste- 
henden DOS-Befehle, wobei 
die Textfiles wegen ihrer gro- 
Ben Bedeutung und der ver- 
gleichsweise komplizierten 
Handhabung besonders darge- 
stellt werden. Viele Textfile- 
Tricks werden hier zum ersten- 
mal geschildert. 

Aber auch im zweiten Teil fin- 
det der reine Applesoft-Pro- 
grammierer insbesondere in 
dem Kapitel „Vermischte Tips, 
Tricks und Patches“ zahlreiche 
Anregungen. Im übrigen ist der 
zweite Teil für Assembler-Pro- 
grammierer gedacht. Neben ei- 
ner detaillierten Beschreibung 
der DOS-Interna enthält dieser 
Teil elf vollständige RWTS-An- 
wenderprogramme - z.B. 
CPM-Refiner, DOS-lose Da- 
tendisk, TSL-Maker, File- 
Reader, Pseudo-Disk-Driver 
und Fastbrun-Routine —, die 
Techniken enthüllen, die bis- 
lang noch niemals publiziert 
worden sind. Dieses DOS- 
Buch ist deshalb der unent- 
behrliche Begleiter für jeden 
Apple-Programmierer. 


Apple Il 

Basic Handbuch 
von Douglas Hergert 
304 Seiten, 116 Abb. 
DM 32,— 


Das Buch ist als Nachschlage- 
werk konzipiert, daß seinen 
Platz neben jedem APPLE Il, 
II+ und Ile haben sollte. Es 
richtet sich an Anfänger und 
fortgeschrittene Program- 
mierer. 





tiert der Autor Tips und Vor- 
schläge, die das Programmie- 
ren leichter und zugleich effi- 
zienter machen. Alle Applesoft- 
und Integer-BASIC-Begriffe 
sind alphabetisch aufgelistet 
und werden eingehend erklärt. 


Dazu werden alle DOS-Befehie 
(neben vielen Begriffen der 
Computerterminologie) vorge- 
stellt. 

Beispielprogramme zeigen 
dem Nutzer, wie jeder Befehl 
funktioniert und helfen, die rich- 
tige Anwendung zu üben. Un- 
ter anderem lernt der Leser 
den besten Weg, um FOR/ 
NEXT-Schleifen und IF/THEN- 
Entscheidungen für seine 
Zwecke einzusetzen, 

Durch die präzise und leicht 
verständliche Sprache des Au- 
tors werden auch schwierige 
Befehle einfach in der Anwen- 
dung. 


Apple Maschinen- 
sprache 

von Don und Kurt Inman 
1984, 208 S., zahlr. Abb. und 
Tabellen, DM 49,- 


APPLE 


MASCHINEN 
SPRACHE 


DON INMAN - KURT INMAN 





die beste Einführung in die 
6502-Programmierung für den- 
jenigen Assembler-Anfänger, 
der zuvor noch nie ein Maschi- 
nenprogramm geschrieben 
hat. 

Aus dem Inhalt: 

Applesoft IIBASIC - kurzge- 
faßt - Alles über Zeichen - Al- 
les über Speicher - Alles über 
Maschinenbefehle - Maschi- 
nenprogramme mit BASIC ein- 
geben - Graphik - Text- Ton - 
Arithmetik - Was tun mit den 
Maschinenprogrammen 


Apple Il 

leicht gemacht 

von Joseph Kascmer 

1984, 185 S., zahlr. Abb., kart., 
DM 28,- 


Dies ist ein Buch, wie es sich 
jeder Apple-Anfänger nur wün- 
schen kann: Schrittweise, 
leichtverständliche Anleitung 
zum Umgang mit dem Apple 
mit einigen durchsichtigen, un- 
komplizierten Beispielen in Ap- 
plesoft, die ihn nicht Abschrek- 
ken, sondern ermutigen sollen, 
sich mit dem Gerät näher ver- 
traut zu machen. Damit ist „Ap- 
ple Il leicht gemacht“ das idea- 
le Einsteigerbuch für den rei- 
nen Anwender, der nicht nur 
„auf den Knopf drücken“, son- 
dern zumindest einige Details 
aus der Black Box namens Ap- 
ple erfahren will. 





ie 
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Aus dem Inhalt: 

Kontrolle des Geräts - Schrei- 
ben und Zeichnen auf dem 
Bildschirm - Geheimnisvolle 
Abläufe: Programme - Ver- 
schiedene Eingriffsmöglichkei- 
ten — Mobile Speicher: Disket- 
ten - Kontrollmöglichkeiten — 
Das Innenleben 


Appie Assembler 
Tips und Tricks 


von Ulrich Stiehl 
1984, 226 S., 3 Abb., kart., 
DM 34, - 


„Apple Assembler“ wendet 
sich an alle, die bereits Anfän- 
gerkenntnisse der 6502-Pro- 
grammierung haben -z.B. 
aufgrund des Buches „Apple 
Maschinensprache“ — und nun- 
mehr ein Nachschlagewerk für 
ihren Apple Il Plus/lle/lic su- 
chen, in dem alle wichtigen 
ROM-Routinen sowie eine 
Vielzahl sonstiger Hilfspro- 
gramme in einer systemati- 
schen Form zusammengestellt 
werden. Insgesamt umfaßt die- 
ses Buch über 40 Utilities, dar- 
unter mehrere völlig neuartige 
Programme wie Double-Lores, 
Double Hires, Screen-Format 
u.a. 

Der erste Teil enthält ein Repe- 
titorium der wichtigsten Befeh- 
le, Adressierungsarten und 
sonstigen Besonderheiten des 
6502. 

Im zweiten Teil werden alle 
Adressen des Monitors zusam- 
mengestellt, die für Assembler- 
Programmierer von Nutzen 
sein können. Darüber hinaus 
findet der Leser Unterroutinen 
für hexadezimale Addition/ 
Subtraktion/Multiplikation/Divi- 
sion, Binär-Hex-ASCII-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit 
der Speicherverwaltung der 
Language Card und der lle- 
64K-Karte und enthält Move- 
Programme zum Verschieben 
von Daten in die und aus der 
Language Card sowie der 64K- 
Karte. 


Der vierte Teil ist dem Ap- 
plesoft-ROM gewidmet und li- 
stet eine große Anzahl nützli- 
cher Interpreter-Adressen. Bei 
den Utility-Programmen liegt 
das Schwergewicht auf Fließ- 
kommamathematik einschließ- 
lich Print Using. 

Der letzte Teil behandelt den 
Text- und Graphikspeicher. 
Neben einem professionellen 
Maskengeneratorprogramm 
werden auch Routinen zur 
Double-Lores- und Double-Hi- 
res-Grafik vorgestellt. 


Arbeiten mit dem 
Macintosh 


von N. Hesselmann 
416 Seiten, 320 Abb. DM 54, - 


Das Buch erklärt den Umgang 
mit dem Macintosh von Grund 
auf, wobei auch auf elementare 
Dinge eingegangen wird, wie 

z. B. die Benutzung der Tasta- 
tur und der Maus, das Einlegen 
von Disketten und den System- 
start. Ganz besonderes Äugen- 
merk wird auf die Erklärung der 
speziellen Software-Umge- 
bung des Macintosh gelegt, 
wobei das Menü- und Fenster- 
konzept sowie das Anwählen 
durch Piktogramme gekenn- 
zeichneter Funktionen klar dar- 
gestellt wird. 


Arbeiten mit dem 


Macintosh 


ra SFr HR. Fe] 





Der Umgang mit den Program- 
men MacPaint und MacWrite 
wird erläutert; dies geschieht 
teilweise anhand von Beispie- 
len, die leicht nachvollzogen 
werden können. Ein umfangrei- 
ches Kapitel ist dem für den 
Macintosh erhältlichen Micro- 
soft-BASIC gewidmet. 


BASIC Ubungen 

für den Apple 

von J. P. Lamoitier 

1983, 252 S., zahlr. Abb., kart., 
DM 38,— 


Das Buch ist konzipiert, allen 
Apple-Anwendern Applesoft- 
BASIC durch praktische Ubun- 
gen an Hand von reellen Pro- 
grammen beizubringen. Daten- 
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verarbeitung, Statistik, kom- 
merzielle Programme, Spiele 
und vieles mehr. Jede Ubung 
beinhaltet eine Beschreibung 
der Problemstellung, eine Ana- 
lyse der Lösungsmöglichkei- 
ten, ein Flußdiagramm und ein 
fertiges Programm samt Pro- 
belauf. 





Aus dem Inhalt: 

Ihr erstes BASIC-Programm -— 
Flußdiagramme — Übungen mit 
Integerzahlen — Elementare 
Beispiele aus der Geometrie — 
Allgemeine Übungen aus der 
Datenverarbeitung - Mathema- 
tische Berechnungen - Kauf- 
männische Berechnungen -— 
Spiele - Operations Research 
— Statistik 


Apple ProDOS 
für Aufsteiger 
Band 1 


von Ulrich Stiehl 
1984, 202 S., kart., DM 28,- 


ProDOS ist das neue „profes- 
sionelle DOS“ (Professional 
Disk Operating System) für den 
Apple Ile sowie den mit einer 
Language Card ausgestatteten 
Apple II Plus. Band 1 befaßt 
sich mit den theoretischen 
Grundlagen von ProDOS, der 
internen und externen Spei- 
cherorganisation und enthält 
grundlegende Beispielpro- 
gramme für Assembler-Pro- 
grammierer sowie generelle 
Untersuchungen zum BASIC- 
SYSTEM. Da ProDOS über er- 
heblich vielfältigere und lei- 
stungsfähigere, zugleich je- 
doch erheblich kompliziertere 
Dateistrukturen verfügt, sind 
theoretische Kenntnisse von 
ProDOS unabdingbar, wenn 
man die Features von ProDOS 
voll ausschöpfen will. 

Aus dem Inhalt: 

Ein erster Überblick - ProDOS 
und DOS 3.3 - Interne Spei- 
cherorganisation — Externe 
Speicherorganisation — MLI 
(Machine Language Interface) 
- ProDOS für Applesoft-Pro- 
grammierer 
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PRINT CHR$ (A)"PR#3": PRINT : INVERSE : PRINT "GETPAS: 
DOS,D1 <-—- PASCAL,D2": NORMAL : PRINT CHR$ (4}"UNLOCK 
GETPAS,S6,D1" 

DATA 169, 24,160,18,32,217,3,176,1,96 

DATA 173,31,24,141,17,24,96,0,1,96 

DATA 2,0,0,0,36,24,0,0,0,0 

DATA 1,0,0,968,1,234,0,1,239,21 

DATA 76,49,24,76,86,24,76,210,24,169 

DATA 0,133,206,169,29,133,207,169,0,168 

DATA 145,206,200,208,251,230,207,166,207,224 

DATA 154,144,243,169,0,141,84,24,169,29 

DATA 141,85,24,96,0,0,169,0,133,254 

DATA 169,25,133,255,173,84,24,133,206,173 

DATA 85,24,133,207,160,0,177,254,201,0 

DATA 240 ,87,201,13,240,20,201,32,176,16 

DATA 201,16,208,17,160,1,177,254,160,0 

DATA 201,33,144,13,176,20,145,206,32,171 

DATA 24,32,185,24,76,104,24,32,185,24 

DATA 32,185,24,76,104,24,170,169,32,145 

DATA 206,32,171,24,202,224,32,208, 244,240 

DATA 232,230,206,208,9,230,207,165,207,201 

DATA 154,144,1,0,96,230 ,254,208,20,230 

DATA 255,165,255,201,29,144,12,104,104,165 

DATA 206,141,84,24,165,207,141,85,24,96 

DATA 169,0,133,206,169,29,133,207,160,0 

DATA 177,206,240,16,9,128,32,237,253,200 

DATA 208, 244,230 ,207,165,207,201,154,144,236,96 
RESTORE 

FOR X = 6144 TO 6384: READ Y: POKE X,Y: NEXT 

PRINT CHR$ (4)'"MAXFILES!" 

HIMEM: 6144: CLEAR :A = 6144:B = 6400:C = A:D= A + 17: 
E=A+1l8:Ff=E+4:G=E+5:H=E+9 

PRINT : INPUT "TEXTFILE <CR = DIR>:"';A$: IF LEN (A$) = 0 
THEN COSUB 58: GOTO 39 

GOSUB 46: IFK< >30RL-M< 4 THEN PRINT CHR$ 
(7); "TEXTFILE NICHT GEFUNDEN": GOTO 39 

CALL 6184:N = INT (B / 256):0=N+1:P=0+1:9=P+ 
1:R = M + 2: GOSUB 52 

CALL 6184 + 3:R=R +2: IFR=L THEN 44 

GOSUB 52: GOTO 42 


HOME : PRINT CHR$ (A)"UNLOCK GETPAS,D1": PRINT CHR$ 
(A)"MON O0": PRINT CHR$ (4);"OPEN"A$: PRINT CHR$ 
(4); '"WRITE"A$: CALL 6184 + 6: PRINT : PRINT CHR$ 
(4); ""CLOSE" 
PRINT CHR$ (A)"NOMON O'": PRINT CHR$ (4)'"MAXFILES3": 
END 
Ss -=.1INT IB 27 25627 =707 ER Ue 17 70 2 STER = 1: 
GOSUB 56:5 = 5 + 1: NEXTU:V= PEkK (B+ IE) WB + 
32:X= LEN (2$) 
IF PEEK (W) < > X THEN 50 
FOR J=1TOX: IF PEEK (W + J)< > ASC ( MID$ 
(A$,J,1)) THEN 50 
NEXT J:M = PEEK (W - 6) + PBEEK (W - 5) & 256:L = PEEK 
(W - 4) + PEEK (W - 3) * 256:K = PEEK (W — 2): RETURN 
W+ 26:V=\V- 1: IFV>0 THEN 47 
- 1: RETURN 
R: GOSUB 53:5 = N:U = Z: GOSUB 56:5 = 0:U = Al: GOSUB 

6:Y=R+ 1: GOSUB 53:5 = P:U = 2: GOSUB 56:5 = Q:U = 

1: GOSUB 56: RETURN 

= IN I ry 2), Bl 8-T) x 8:Al=2x (7 - Bl}:Z 
=4Al +1: IFBl = =0 
IF Bl = "7 THEN Al 
RETURN 
FOKE F,T: POKE G,U: POKE H,S: PÜKE D,0: CALL C: IF PEEK 
(D) = 0 THEN RETURN 
TEXT : PRINT CHR$ (7);"RWTS-FEHLER;, "; PEEK (D): POP : 
POP : END 
S= INT IB / 256):7T = 0: FÜR U= 11 TO 4 SITEP =]: 
GOSUB ISE:S = 5 + 1: NET UBS = "MV c1 = B +6: FORT ZI 
TO PEEK ({C1):B$ = B$ + CHRS ( PEEK (C1 + I)): NEXT I 
PRINT BE. og eh = ]:Dr = PEBEK IB + 16): IE DI = 
O THEN INPUT "<LEER> ";D$: RETURN 
FOR I = 1 TO DI:EL = EB + 1 # 26 # &:61 = PEEK (El): IE 
Cl = 0 THEN GOTO 62 
FOR J= 1 TO C1:C$ = C$ + CHR$ { PEEK (El + J}): NEXT 
JE TPRINT ENTER ch = u + 
IE X > 20 OR 1 = DI THEN SPRINT 2 INPUT "DE: X% =] 
NEXT I: RETURN 
PRINT "Urversion von D,.J.Schwartz 1981, durch 
Maschinenprogramm getrimmt von U.Stiehl 1984" 





GETDOS: Konvertierung von DOS- in Pascal-Textfiles 


von Jürgen Geiß 


Mit Hilfe des Programms GETDOS lassen 
sich DOS- in Pascal-Texifiles konvertie- 
ren. Dabei kann eine Textdatei maximal 93 
Sektoren (23.552 Bytes) umfassen. GET- 
DOS wurde in Pascal geschrieben und 
wird deshalb von Pascal aus gestartet. Es 
ist das Gegenstück zu GETPAS, mit dem 
sich Pascal- in DOS-Textdateien umwan- 
deln lassen. 


Nach dem Start des Programms erwartet 
GETDOS die Eingabe einer Source-Unit 
(= DOS-Diskette). Als Source-Unit sind 
alle gültigen Pascal-Unit-Nummern von 4- 
12 erlaubt, z.B. #5 für DOS-Diskette in 
Drive 2. Als Destination-Units können ne- 
ben der Pascal-Diskette (z. B. #4 für Pas- 
cal-Diskette in Drive 1) noch zusätzlich die 
Unit-Nummern 1-3 angegeben werden. 
Damit ist es möglich, den DOS-Textfile 
direkt auf den Bildschirm (Unit #1) auszu- 
geben. Meistens wird aber das Schreiben 


/0 


auf eine Datei bevorzugt. Nach dem Ko- 
pieren kann dann der Text z.B. mit dem 
UCSD-Editor weiterverarbeitet werden. 
Man beachte, daß man den Dateinamen 
des zu konvertierenden DOS-Textfiles be- 
reits kennen muß, da GETDOS im Gegen- 
satz zu GETPAS nicht den DOS-Catalog 
anzeigen kann. 

Eine Anwendung für das Konvertieren ei- 
ner DOS-Textdatei könnte etwa das Ent- 
wickeln eines Assemblerprogramms für 
Pascal sein. Das Assemblerprogramm 
kann dann unter DOS mittels Single Step 
(Einzelschrittbetrieb) getestet werden. 
Nach dem Konvertieren kann die Textdatei 
mit dem UCSD-Editor in UCSD-Assem- 
blersyntax umgeschrieben werden. Da es 
in Pascal keine guten Debugging-Möglich- 
keiten für Assemblerprogramme gibt, ist 
dies fast die einzige Alternative, um länge- 
re Assemblerprogramme fehlerfrei in Pas- 
cal zu implementieren. 


Anmerkung der Redaktion: GETDOS dient 
ferner dem Zweck, die auf den Peeker- 
Sammeldisketten als DOS-Textfiles abge- 
speicherten Pascal-Programme in das 
Pascal-Betriebssystem zu übernehmen. 
Wegen der geschweiften Klammern usw. 
verwenden wir bei den DOS-konverlierten 
Pascal-Files auf der Sammeldiskette nur 
den amerikanischen Zeichensatz. In den 
abgedruckten Listings kodieren wir jedoch 
aus ästhetischen Gründen meist die Um- 
laute und Eszett in den Menüanweisun- 
gen. Es gilt folgende Zuordnung für deut- 
sche und amerikanische ASCII-Sonder- 
zeichen: 


$5B=Ä=| 
Sc -0 5 
$5D=-Ü=] 
$7TB=ä=! 
$7C=ö= | 
$7’D=ü=)} 
$’TE=B=- 


program Getdos (input, output); 


Gesespesssssparr) 


{ 


{ Dieses Programm konvertiert DOS 3.3 } 


{ } 


{ Textfiles in Pascal-Textformat } 


{ } 


Geeesr) 


const Max 23551; 
Page 256; 
ClearEOL 29, 
Clearscreen = 12; 


type Byte 0..255; 
Units 1,12: 
Untypedfile rile: 
Sector = record 
Block >. 7: 
Half : (First, Second) 
end; 


var Map : packed array [0..15] of Sector; 
Buf : packed array [0..511] of Byte; 
Text : packed array [O..Max] of Byte; 
sourcefile ı string; 
Destfile : string; 
Sourceunit Units; 
Destunit - Units; 
Drives : set of Units; 
Block : integer; 
Track ‚ integer; 
Sec : integer; 
Blockcount : integer; 
I : integer; 
Ptr Integer: 
done : boolean; 
found : boolean; 
Ch i Schar 
F : file of char; 
Diskfile : Untypedfile; 


[unnnnnnnnnnnnn nee] 
procedure Initialize; 


begin (Initialize} 

Map [00].Block := 0; 

Map [00].Half := First; 

Map [Ol].Block := 7; 

Map [Ol].Half := First; 

Map [02].Block := 6; 

Map [02],Half := Second; 
Map [03].Block := 6; 

Map [03] .Half := First; 

Map [04] .Block := 5; 

Map [04].Half := Second; 
Map [05].Block := 5; 

Map [05].Half := First; 

Map [06].Block := 4; 

Map [06].Half := Second; 
Map [07].Block := 4; 

Map [07].Half := First; 

Map [08].Block := 3; 

Map [08].Half := Second; 
Map [09].Block := 3; 

Map [09].Half := First; 

Map [10].Block := 2; 

Map [10],Half := Second; 
Map [11].Block := 2; 

Map [11].Half := First; 

Map [12].Block := ]; 

Map [12].Half := Second; 
Map [13].Block := 1]; 

Map [13].Half := First; 

Map [14].Block := 0; 

Map [14].Half := Second; 
Map [15].Block := 7; 

Map [15].Half := Second 

end; {Initialize} 


{ ernennen Er} 


procedure Printat (Y : integer; S : string); 
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begin {Printat} 

gotoxy (0, Y); 

write (chr (ClearEOüL), S) 
end; {Printat} 


Bessere) 
procedure Uppercase (var S : string); 
var I : integer; 
begin {Uppercase} 

for I := 1 to length (S) do 

if Ss [I] in ['alss'z'’] then S [I] := ehr 

(eras(s[ri) oral) 

end; {Uppercase} 
Ges) 


procedure Getnames; 


var OK : boolean; 
Dest : string; 


begin {Getnanes} 
Drives := [4..5, 9.12]; 
repeat 
write (chr (Clearscreen)); 


Printat (1, 'x&** GETDOS »xx*'); 


GRAPHIC: ' 
PRINTER: ' 


Printat (3, 7 17 gONSoEE: 2. SYSTERM: 3% 

Printat (4, "4. DISK #4: 5. DISK #5: 6. 

Printat (5, ' 7. REMIN: 8. REMOUT: g 

Printat (6, '16, DISK #10: 11. DISK #11: 12. 

Printat (8, 'DOS 3,3 Disk; (4, 5. 9..12): '); 

readln (Sourceunit}; 

Printat (10, 'Pascal Ausgabegerät (1-12): '); 

readln (Destunit); 

Printat (12, 'D0S 3,3 Filename: "); 

readln (Sourcefile); 

Uppercase (Sourcefile); 

Destfile := Sourcefile; 

if pos (',TEXT!', Sourcefile) = 0 then 
Destfile := concat (Sourcefile, '.TEXT'); 

str (Destunit, Dest); 


case Destunit of 
1 : Destfile := "CONSOLE: *; 
2 : Destfile := "SYSTERM:'; 
: Destfile := "GRAFHIC: ': 


: Destfile := concat ('’#', Dest, ':', Destfile); 
: Destfile := 'PRINTER:’; 
: Destfile := 'REMIN'; 
ı Destfile := 'REMOUT! 
end; {case} 


Printat (14, concat ('Pascal Filename: ', Destfile)}; 
Printat (16, '<RETURN> startet, <ESCAPE> beendet, 
<SPACE> wiederholt'); 

read (keyboard, Ch}; 
OK := eoln (keyboard); 
if Ch = chr (27) then exit (program) 
until OK; 
end; {Getnames} 


Bepessspee) 
procedure Readses; 


begin {Readsec} 
Block := (Track « 8) + Map [Sec].Block; 


unitread (Sourceunit, Buf, 512, Block); 
if IOresult <> O0 then exit (progran): 


case Map [Sec].Half of 
First : moveleft (Buf [O], Text [Ptr], Page); 
Second : moveleft (Buf [Page], Text [Ptr], Page); 
end; {case} 
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Ptr := Ptr + Page 


end; {Readsec} 
Gesessepe) 
procedure Readsource; 


const Bytesperentry = 35; 


Header ==ll: 
Blanks eg 
{25 blanks} 


Name : string [30]; 

Filetype : Byte; 

Limit : integer; 

Sectorcount : integer; 

Entry : integer; 

List : packed array [1..80, 0..1] of Byte; 


begin {Readsource} 


{liest DOS 3.3 Katalog von Spur 17, Sektoren 15-1} 
Printat (18, 'Lese Katalog'}; 

Track := 17; 

Ptr := 0; {Nimm den Anfang des Textes} 


for Sec := 15 downto 1 do 
begin 

Readsec; 

write ('.'} 
end; 


{Suche DOS 3.3 Eintritt} 

Limit := Ptr - ]; 

Per := Header; 

Entry := 0; 

Sourcefile := concat (Sourcefile, ' '); 


repeat 
Name := copy (Blanks, 1, length (Sourcefile)); 
Entry := Entry + 1; 
for I := 1 to length (Sourcefile) do 
Nane [I] := chr (Text [Ptr + I +2] - 1228): 
found := Name = Sourcefile; 


if not found then {erhoehe Ptr} 
begin 
if (Entry mod 7) = 0 then Ptr := Ptr + Header; 
Ptr := Ptr + Bytesperentry 
end; 
until found or (Ptr > Limit); 


if not found then 

begin 
write {chr (7)); 
Printat (18, 'Fehler: File nicht gefunden'); 
exit (Readsource)} 

end; 


Track ;= Text [Ptr]; 

Sec := Text [Ptr + 1]; {Track/Sector Liste} 
Filetype = Text [Ptr + 2]; 

Sectorcount := Text [Ptr + 33] - 1; 


if ((Filetype <> 0) and (Filetype <> 128)) or 
(Sectorcount > Max div 256) then 
begin 
Found := false; 
write {chr (7}); 
Printat (18, concat ('Fehler: ', 
Sourcefile, 'ist kein Textfile')); 
exit (Readsource) 
end; 


Bir =—0: 
Readsec; 
Ptr »=212; 


for I := 1 to Sectorcount do 
begin 
List [I ‚0] := 
Fir := Pie +1; 
List [I, 1] := 
Ptr := Ptr+tl 
end; 


Text [Fir]; 


Text [Ptr]; 


if odd (Sectorcount) 
then Blockcount := (Sectorcount + 1) div 2 


else Blockcount := Sectorcount div 2; 


fillchar (Text, size_of (Text), 0); 
Printat (18, 'Lese file'); 
Ptr :=0; 


for I := 1 to Sectorcount do 
begin 
write ('z'}; 
Track := List |T. 0]: 
Sec bist rl: 
Readsec 
end 
end; {Readsource} 


Deseseeepikickt nennen eek) 
procedure Writedest; 
var Nextbyte: Byte; 


begin {Writedest} 
Ptr := 0; 
if Sourceunit <> Destunit then 
begin 
Printat (18, concat ('Bitte Diskette mit ', Destfile, 
' einlegen und <RETURN> drücken')); 
readln (keyboard) 
end; {if} 


Printat (18, 'Einen Augenblick bitte'); 
fillchar (Buf, size_of (Buf), 0); 


for I := 0 to Blockcount &» 5l2 - 1 do 
begin 

if I mod 5l2 = O then write ('!.'); 

if Text [I] > 127 then Text [I] := Text [I] — 128; 
end; 


Printat (18, concat ("Schreibe jetzt ', Destfile)); 
write ('.']: 
rewrite (Diskfile, Destfile); 
write (2); 
I := blockwrite (Diskfile, Buf, 1, 0); 
write (ti. 
I := blockwrite (Diskfile, Buf, 1, 1); 
write (%,%): 
I := blockwrite (Diskfile, Text [0], Blockcount, 2); 
close (Diskfile, lock} 
end; {Writedest} 


(esse ] 


begin {Getdos} 
Initialize; {Sektors/Blocks} 


repeat 
Getnames; 
Readsource; 
if found then Writedest; 
writeln; 
writeln; 
write ('Nochmal ? [j/n]'); 
read (keyboard, Ch); 
Done := Ch in ['N','n'] 

until done 

end. {Getdos} 


COPYDUPDIR zu Pascal-Directory unter der Lupe 


program CopyDupDir (input, output); 


const Maxdir = ar: 
Vidleng de 
Tidleng is; 
Fblksize 
Dirblk 2 
DupDirblk = 6; 


type Daterec packed record 
Month : 03.12; 
Day = 05.31: 
Year : 0..100 

end; {Daterec} 





Dirrange = 0,.Maxdir; 
vid = string [Vidleng]; 
Tid = string [Tidleng]; 
Filekind = (Untypedfile, Xdskfile, Codefile, 
Textfile, Infofile, Datafile, Graffile, 
Fotofile, Securedir, Subsvol); 
Direntry = packed record 
Dfirstblk : integer; 
Dlastblk : integer; 
case Dfkind : Filekind of 
Securedir, 
Untypedfile : (Fillerl 029: 
Dvid VW id, 
Deovblk : integer; 
Dnumfiles : Dirrange; 
Dloadtime : integer; 
Dlastboot : Daterec); 
Adskfile, 
Codefile, 
Textfile, 
Infofile, 
Datafile, 
Graffile, 
Fotofile, 
Subsvol : (Filler2 : 0442047; 
Status : boolean; 
Dtid Le, 
Dlastbyte : 1..Fblksize; 
Daccess : Datereo) 
end; {Direntry} 
Directory = array [Dirrange] of Direntry; 


ValidValues = (NotValid, ValidMain, ValidDupl); 


var Unitnun : integer; 
MainDir ‘ Directory; 
DuplBir ı Directory; 
[(-— 


procedure ReadbDir; 


var Ok : ValidValues; 


function FetchDir (Unitnum : integer) : ValidValues; 


m Te 
function WYalid (var Dir : Directory; Block : integer) : boolean; 
var Ok :; banlenan; 


begin {Valid} 
Valid := false; 
unitread (Unitnum, Dir, size_of (Dir), Block): 
if IÖOresult = OÖ then 
with Dir [0] do 
Valid := (Dfirstblk = 0) and (Dfkind in 
[Untypedfile, Securedir]) 
and (length (Dvid) > 0) and 
(length (Dvid) <= Vidleng) 
and (Dnumfiles >= 0) and (Dnumfiles <= Maxdir) 
end; {Valid} 


mm) 


begin {FetchDir} 
if Valid (MainDbir, Dirblk) 
then FetchDir := ValidMain 
else 
if Valid (DupiDir, DupDirblk) 
then FetchDir := ValidDupl 
else FetchDir := NotValid 
end; {FetchDir} 


m 


begin {ReadDir} 
page (output); 
writeln; 
writeln ('Duplicate-Directory Verschieber 
von Dieter Geiß, 30, 11, 1984')}; 
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repeat 
writeln; 
write ('Welche Directory soli repariert werden? 
Unitnummer: '); 
readln {Unitnun); 
until Unitnum in [4, 5, 9..12]: 
Ok := FetchDir (Unitnun); 
case Ok of 
NotValid : begin 
writeln (chr {(7)}; 
writeln ("Entweder ist kein Laufwerk 
angeschlossen oder')}; 
writeln ('es ist keine Diskette 
im Laufwerk oder'); 
writeln ('die Diskette ist keine 
Pascal-Diskette oder')}; 
writeln ('sowohl Haupt- als auch 
Duplicate-Directory'}; 
writeln ('sind zerstört.'); 
exit (CopyDupbDir) 
end; {NotValid} 
ValidMain : begin 
writeln; 
writeln ('Das Haupt-Directory ist 
in Ordnung.'); 
writeln ('Kein Reparieren notwendig.'); 
exit (CopyDupbDir) 
end; {ValidMain} 
ValidDupl : begin 
writeln; 
writeln ('Das Haupt-Directory ist zerstört, 
aber das'); 
writeln ('Duplicate-Directory ist in Ordnung. 
end {ValidDupl} 
end {case} 
end; {ReadDir} 


procedure WriteDir; 


beein {WriteDir} 
unitwrite (Unitnum, DuplDir, size_of (DuplDir), Dirblk}; 
writeln; 
if IOresult = 0 
then writeln ('Die Diskette hat wieder ein gültiges Directory') 
else 
begin 
write {chr (7)); 
writeln {'Die Blöcke 2 - 6 sind physikalisch 
nicht in Ordnung 2): 
writeln ('Bitte reparieren Sie diese und 
versuchen es dann nochmals. !') 
end {else} 


end; {Write Dir} 


1 


begin ({CopyDupDir} 
ReadDir; 
Writebir 

end {CopyDupDir}. 


$ 
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Hätten Sie jemals geglaubt, 

daß es einen 8-MHz-68000-Mikro gibt, 

der für den Einzeiler 

FOR X = 1 TO 10000: Y = SIN (X): NEXT 

mehr Zeit als der 1-MHz-6502-Apple benötigt? 
Dann lesen Sie jetzt, 

wie die Mac-Leute den 68000 zur Schnecke 
und den Anwender zum Mecki gemacht haben. 
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15 MEcki 4.4 





Der Macintosh und die Lisa gehören zu derjenigen Klasse 
von Mikrocomputern, mit denen eine ganz neuartige 
Philosophie propagiert wird, über deren Sinn und Unsinn 
an dieser Stelle diskutiert werden soll, wobei auf 
technische Details — wie sonst im „Peeker“ üblich — be- 
wußt verzichtet wird, um den philosophischen Hintergrund 
besser erhellen zu können. 


Ikonen und Deixis 
oder dıe Philosophie 
des Macintosh 








von Ulrich Stiehl 


Folgendes soll vorab klargestellt werden: 
Der Macintosh ist ein überlegenes Gerät, 
soweit es für Applikationen eingesetzt 
werden soll, die hochauflösende Schwarz- 
weißgrafik benötigen. Der Macintosh wird 
jedoch von der Firma Apple nicht als ein 
spezieller Grafikcomputer propagiert, son- 
dern als ein in Büros schlechthin einsetz- 
barer genereller Mikrocomputer. Zumin- 
dest im kommerziellen Büroeinsatz (Text- 
verarbeitung, Buchhaltung, Adreßverwal- 
tung, Tabellenkalkulation usw.) wäre ein 
vornehmlich auf Grafik ausgelegter Com- 
puter fehl am Platze, so daß nachstehend 
geprüft werden soll, welche Effizienz der 
Macintosh zusätzlich für die weitaus mehr 
gefragten nicht-grafischen Applikationen 
mitbringt. 


Wenn man mit dem Macintosh spielt, kom- 
men einem zwei Begriffe in den Sinn, 
nämlich Ikonisation und Deixis. In einer 
„Einführung in die allgemeine Semantik“, 
die ich vor 15 Jahren veröffentlicht habe, 
schrieb ich u. a. über das Wesen des 


Zeichens. Da die damaligen Erörterungen 
auch heute noch nicht ihre Gültigkeit ver- 
Ioren haben, seien einige kurze Passagen 
aus dem Zeichen-Kapitel jenes Buches 
zitiert: 


Die Gesamtheit aller Zeichen teilt man vor- 
teilhaft in sprachliche und nichtsprachliche 
Zeichen auf, da die sprachlichen Zeichen 
wegen ihrer überragenden Bedeutung ei- 
ne eigenständige Zeichenklasse bilden, 
hinter der die nichtsprachlichen Zeichen 
an Relevanz für den Informationsverkehr 
stark zurücktreten... 

Zeichen lassen sich in natürliche und in 
künstliche Zeichen aufteilen. Künstliche 
Zeichen liegen dann vor, wenn der Signo- 
rezipient (Zeichenempfänger) diesen 
künstlichen Zeichen nicht direkt ihre Be- 
deutungen entnehmen kann, womit also 
auch keine entsprechende Vorstellung in 
seinem Bewußtsein auftauchen kann. 
Künstliche nichtsprachliche Zeichen wer- 
den zum reibungslosen Ablauf des inter- 
personalen Informationsverkehrs stets da 
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eingeführt, wo natürliche Zeichen, denen 
man unmittelbar ihre Bedeutungen eni- 
nehmen kann, nicht mehr gefunden wer- 
den können und andererseits eine sprach- 
liche Vermittlung zu umständlich wäre... 
Wenn ein Zeichen in vielen charakteristi- 
schen Eigenschaften mit dem Designat 
der von ihm intendierten Vorstellung über- 
einstimmt und dieses Designat quasi ab- 
bildet, kann der Signorezipient die Bedeu- 
tung des Zeichens verstehen. Je weniger 
Ähnlichkeit das ikonisierende Zeichen mit 
dem Designat der entsprechenden Vor- 
stellung aufweist, um so mehr wird es zu 
einem künstlichen Zeichen... 

Das Wort „Zeichen“ läßt sich auf das Wort 
„zeigen“ zurückführen und damit wird zu- 
gleich die ursprüngliche Bedeutung des 
Bezeichnens angedeutet, nämlich die des 
direkten Hindeutens... Dieses Hindeuten 
nennt man das deiktische Zeichen... 


Wenn man den Macintosh mit anderen 
Computern vergleicht, auch mit dem Ap- 
ple II usw., dann fällt ins Auge, daß zwei 
klassische kulturelle Fähigkeiten, nämlich 
das Lesen und das Schreiben, hier stark 
zurückgedrängt werden. An die Stelle des 
Lesens tritt das Betrachten von Ikonen, 
wie die Maeintosh-Bildchen in der ameri- 
kanischen Literatur bezeichnet werden, 
und an die Stelle der dem Schreiben die- 
nenden Tastatur tritt die Maus als deikti- 
sches Instrument. Der oberste Manager 
des Apple-Unternehmens, John Sculley, 
der bekanntlich früher bei Pepsi Cola war, 
mag zwar von Mikrocomputern aus techni- 
scher Sicht wenig verstehen. Dafür be- 
herrscht er aber das Marketing aus dem 
Effeff, und so ist es ihm nicht entgangen, 
daß die Analphabetenquote nach einer 
UNESCO-Erhebung aus dem Jahre 1977 
in Nord-Amerika über 10% beträgt und die 
Fähigkeit des Lesens und Schreibens (= 
„Alphabetentum“) einen Abwärtstrend 
zeigt. Wie soll man jedoch eine Marktpe- 
netration erreichen können, wenn &S SO 
viele Analphabeten gibt? Ergo wurden die 
Ikonen und die Maus erfunden, denn 
wenn jemand schon nicht lesen kann, 
Bildchen wird er wohl noch deuten kön- 
nen, und wenn jemand schon nicht schrei- 
ben kann, mit einer Maus auf Bildchen 
zeigen wird wohl noch möglich sein. Neh- 
men wir als Beispie! die Papierkorb-Ikone. 
Wenn man eine Datei namens XYZ auf der 
Diskette löschen will, so muß man bei 
konventionellen Mikrocomputern aus ei- 
nem Anwenderprogramm heraus nach der 
Frage „Datei XYZ löschen J/N" auf die J- 
Taste tippen oder man muß (wie etwa bei 
vielen Datenbankprogrammen) einen Be- 
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fehl in der Art „Lösche XYZ“ über das 
Keyboard eingeben. Anders beim Macin- 
tosh. Hier muß man das Bildchen der Datei 
in das Bildchen des Papierkorbs stecken, 
indem man mit der Maus zunächst auf die 
Datei-Ikone und dann auf die Papierkorb- 
Ikone zeigt. Um darüber hinaus den Le- 
seunkundigen behutsam an das geschrie- 
bene Wort heranzuführen, ist zu allem 
Überfluß die Papierkorb-Ikone mit dem 
Schild „Papierkorb“ beschriftet. 


Halten wir zunächst einmal fest: Computer 
benutzerfreundlicher zu machen, sollte 
oberstes Anliegen jedes Computerprodu- 
zenten sein, denn nicht jeder will, kann 
und soll programmieren lernen. Aber 
drückt sich Benutzerfreundlichkeit darin 
aus, daß abstrakte Vorgänge wie das Lö- 
schen einer Datei mit aller Gewalt bildhaft 
veranschaulicht werden? Wir Deutsche 
sind etwas empfindlich gegenüber einer 
zu trivialen Simplifikation. Dies hängt mit 
der philosophischen Tradition und dem 
Schulsystem unseres Landes zusammen. 
Haben doch viele Philosophen wie Kant 
und Hegel ihre Zuflucht in dunklen Formu- 
lierungen gesucht (Brevis esse laboro ei 
obscurus fio...). Mit dieser Tradition im 
Hintergrund ist man etwas konsterniert, 
wenn man beispielsweise nunmehr auf 
dem Bildschirm ohne jeden erläuternden 
Text einen „Hasen“ sowie eine „Schild- 
kröte“ präsentiert bekommt. Was könnte 
es bewirken, wenn ich mit der „Maus“ 
(auch wieder eine bildhafte Umschreibung 
eines sonst Rollball genannten Instru- 
ments) auf den Hasen „klicke“? Daß ich 
jetzt vom Macintosh ein Wildbret anstelle 
einer Schildkrötensuppe erhalte? Oder 
daß — was zutrifft — die Repeat-Funktion 
der Tasten des Macintosh eingestelit wird? 
Warum nicht einfach und eindeutig die 
schriftliche Frage: „Tastendruck schneller 
J/N?“ So gesehen muß man sich fragen, 
ob Bildchen wirklich zur Benutzerfreund- 
lichkeit führen. Hier zeigt sich die oben 
aus dem Semantik-Buch zitierte Proble- 
matik ikonographischer Zeichen, die oft 
äquivok sind und deshalb einer Konven- 
tion (= Festlegung der Bedeutung) bedür- 
fen. Wenn man jedoch die Symbolbedeu- 
tung des „Hasen“ erst erlernen muß, 
dann fragt es sich, ob einem mit einer 
schriftlichen Formulierung nicht besser 
gedient wäre. Nichtsprachliche Zeichen 
sind stets dann erforderlich, wenn eine 
sprachliche (schriftliche) Kommunikation 
zwischen Mensch und Computer nicht 
möglich ist. Hier sind drei Fälle zu nennen: 


Ausländer: Aus der Sicht der Amerikaner 
sind die Deutschen Ausländer. Betriebs- 





Scrollen: Meckis Macke 


Daß selbst ein so hervorragender Prozes- 
sor wie der MC68000 bei zu aufwendiger 
Pixel-Grafik in die Knie geht, läßt sich an- 
hand der Scroll-Geschwindigkeit bewei- 
sen. Zu diesem Zweck wurde je ein kurzes 
Basic-Programm (FOR X = 1 TO 1000: 
PRINT „aaaaa...usw.“: NEXT) erstellt und 
einerseits auf dem Macintosh und ande- 
rerseits auf dem Apple Ile mit 80-Zeichen- 
karte getestet. Dabei ergaben sich folgen- 
de Geschwindigkeitsunterschiede des Ap- 
ple Ile gegenüber dem Macintosh: 


1. Der normale Apple Ile mit 1MHz-6502 
und normaler 80-Zeichenkarte-Routine ist 
immerhin schon 2mal so schnell wie der 
Macintosh. 


2. Der normale Apple Ile mit einer selbst 
geschriebenen 80-Zeichenkarte-Fastscroll- 
Routine ist bereits Amal so schnell wie der 
Macintosh. 


3. Und schließlich ist der Apple Ile mit 
3 5MHz-65C02C (Acclerator-Karte) und 
der Fastscroll-Routine sage und schreibe 
10mal so schnell wie der Macintosh. 


Dieses Ergebnis ist für den Macintosh an- 
gesichts des 8MHz-MC68000-Prozessors 
ungewöhnlich schwach. 


Um den Basic-Test zu erhärten, würde die 
Scrollgeschwindigkeit des Macwrite- mit 
der des Applewriter-Programms vergli- 
chen. Zunächst wurde von der Macwrite- 
Diskette der kurze Demotext namens ME- 
MORANDUM eingelesen. Am Anfang die- 
ses Textes wurden exakt 10 Bildschirm- 
zeilen ohne Returns und ohne Leerlasten 
(„----- usw.") eingegeben, um auf diese 
Weise das Scrollen zu erzwingen. Dann 
wurde der Maus-Zeiger zum Beginn der 
10 Endloszeilen gesetzt und innerhalb von 
5 Sekunden exakt 10mal auf die Return- 
und 10mal auf die Delete-Taste gedrückt. 
Es dauerte dann genau weitere 10 Sekun- 
den, bis sich das 10malige Abwärts- und 
Aufwärts-Scrollen erholt hatte. Beim Ap- 
plewriter Ile mit Acclerator-Karte gibt es 
demgegenüber überhaupt keine Verzöge- 
rung, d.h. das Scrollen wird sofort ausge- 
führt. Was kann man nun daraus folgern? 
Eine mäßige Schreibkraft erzielt 180, eine 
gute 280 Anschläge/Minute. Wenn in 58 
20 Tasten gedrückt, aber effektiv erst in 5s 
+ 105 = 155 ausgeführt werden, so ent- 
spricht dies einer Tastgeschwindigkeit von 
80 Anschlägen pro Minute. Niemand wür- 
de eine Schreibkraft mit dieser Leistung 
einstellen. 


systeme In die jeweilige Landessprache 
zu übersetzen kostet Zeit und Geld. Durch 
die Einführung von Symbolen könnte man 
sich die Arbeit erheblich erleichtern. Dann 
müßten es allerdings international gere- 
gelte Symbole sein (ähnlich wie die inter- 
national genormten Straßenverkehrsschil- 
der) und nicht willkürlich festgelegte „Ha- 
sen“ und „Schildkröten“. 


Kinder: Kinder sind erst im Begriff, lesen 
und schreiben zu lernen. Ob der Macin- 
tosh indessen auch für Kinder konzipiert 
wurde, ist zu bezweifeln, denn dem steht 
der zu hohe Anschaffungspreis entgegen. 


Analphabeten: Für Lesebehinderte ist die 
ikonographisch-deiktische Sprache das 
Mittel zur Wahl. Doch scheint mir zumin- 
dest der berufliche Einsatz eines Mikro- 
computers ohne diese elementaren Fähig- 
keiten mehr als bedenklich. 


Manager: Die Bedienung einer Tastatur 
wird von Führungskräften in der Regel ab- 
gelehnt. Dafür gibt es Sekretärinnen, so 
heißt es. Um den Macintosh in der Ge- 
schäftsetage allererst „salonfähig“ zu ma- 
chen, bot sich die Maus an. Die Tastatur ist 
beim Macintosh scheinbar ein nebensäch- 
liches Anhängsel, das nur noch von Fall zu 
Fall bedient werden muß. In Wahrheit ist 
jedoch die Tastatur beispielsweise bei der 
Textverarbeitung eine conditio sine qua 
non. Da man jedoch beim Macintosh ge- 
zwungen ist, die Maus zu benutzen, muß 
das permanente Hin und Her zwischen 
Maus und Tastatur als wenig ergonomisch 
bezeichnet werden, ganz zu schweigen 
von der Tatsache, daß dadurch Schnell- 
schreiber ihr gewohntes Soll nicht mehr 
erfüllen können. Oder sollte der Macintosh 
für Leute, die schnell arbeiten müssen, gar 
nicht gedacht sein? 


Läßt man unsere philosophischen Erörte- 
rungen Revue passieren, so könnte der 
Eindruck entstehen, daß der Macintosh — 
von der Zielgruppe der Manager einmal 
abgesehen — eigentlich nur für die von 
Mutter Natur weniger gut Bedachten kon- 
zipiert worden ist. („Dada Hase klickiklick 
und Mecki ganz schnell“.) Dem ist jedoch 
nicht so. Hinter dem Macintosh steht das 
ernsthafte Bemühen, ein Gerät zu konzi- 
pieren, daß über optimale Benutzerfreund- 
lichkeit verfügt, was mit Hilfe von Ikonen, 
Maus und sonstigen Grafiken zu realisie- 
ren versucht wird. Ganz an erster Stelle 
steht beim Macintosh das Komfortprinzip 
und erst unter „ferner liefen“ das Effi- 
zienzprinzip. Ohne Grafik geht beim Mac- 


intosh gar nichts. Dies hat zwar einerseits 
den Vorteil, daß Texte und Bilder beliebig 
gemischt werden können, andererseits 
wird die Effizienz ungewöhnlich stark be- 
einträchtigt. Überspitzt könnte man sagen, 
daß der Macintosh im wesentlichen damit 
beschäftigt ist, pausenlos Ikonen und Gra- 
fiken zwischen internem und externem 
Speicher hin- und herzuschaufeln und daß 
deshalb für das eigentliche Anwenderpro- 
gramm nur noch wenig „CPU-Zeit” und 
nur noch wenig Speicherraum zur Verfü- 
gung steht. 


— Tatsache ist, daß wegen des ca. ZOK- 
Bildschirmspeichers die Scrollgeschwin- 
digkeit so gering ist, daß bei einer flotten 
10-Finger-Schreibkraft Textverarbeitungs- 
programme in der Art des Macwrite — un- 
abhängig von dem permanenten Wechsel 
Maus-Tastatur — nicht mithalten können. 


— Tatsache ist auch, daß sowohl der inter- 
ne RAM- wie auch der externe Disketten- 
Speicher durch das infolge der aufwendi- 
gen Grafikroutinen ungewöhnlich aufge- 
blähte Betriebssystem keinen nennens- 
werten Platz für eigene Programme und 
Daten läßt, so daß insbesondere 1-Drive- 
Besitzer ungebührliche Einschränkungen 
in Kauf nehmen müssen, Auf einer 1-Dri- 
ve-Macintosh-Diskette befinden sich in 
der Regel weit mehr Systemprogramme, 
Zeichensätze und Bildchen als sinnvolle 
Daten des Anwenders. Übrigens dauert 
das Duplizieren einer Diskette beim 1- 
Drive-Besitzer 6,5 Minuten. 


Als konkretes Beispiel zitieren wir hier aus 
der amerikanischen Zeitschrift „A+", Heft 
10/1984, S. 175, die Anfrage eines ver- 
zweifeiten Macintosh-Benutzers, der we- 
gen der genannten speichertechnischen 
Probleme eine 5-Megabyte-Festplatte er- 
worben hatte und nunmehr feststellen 
mußte, daß er bei der Verwendung langer 
Dateinamen nicht mehr als 100 Dateien 
auf der Harddisk abspeichern konnte, ob- 
gleich de facto noch mehr als 1,5 Mega- 
byte frei waren. Bei jedem wiederholten 
Versuch stürzte das System mit „can’t find 
workspace" erneut ab. Was war passiert? 
Das Kopierprogramm FILER hat einen Di- 
rectory-Puffer (Dateinamenpuffer), der nur 
ca. 100 längere Dateinamen aufnehmen 
kann. Andererseits ist es jedoch auch 
nicht in der Lage, die Summe aller Datei- 
namen in Blöcken einzulesen, wie dies bei 
anderen Betriebssystemen wie ProDOS 
usw. der Fall ist. Hierzu muß man wissen, 
daß der RAM-Bereich des Macintosh 
128K umfaßt, während der Directory-Puf- 
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fer wahrscheinlich nicht mehr als ca. 4K 
einnimmt, weil die restlichen ca. 124K 
durch Systemprogramm und Ikonen be- 
legt sind. Hierzu muß man ferner wissen, 
daß sich in dem Speicherraum des Macin- 
tosh-Grafikbildschirms, der ca. 20K um- 
faßt, mehr als 1000 Dateinamen unterbrin- 
gen lassen könnten. 


Symptomatisch ist die Antwort, die die 
appletreue „A+" dem Änfrager gibt: „Sie 
können wenige große Datenbank-Dateien 
auf Ihrer Harddisk unterbringen, nicht je- 
doch viele kleine Macwrite/Macpaint-Da- 
teien. Sie sollten einige der Dateien von 
der Harddisk auf eine Diskette übertragen, 
womit Ihr Problem einstweilen gemildert 
wird.“ Wirklich gemildert? Wenn das EEfli- 
zienzprinzip dem Komfortprinzip geopfert 
wird, wenn also wegen der „Bildchen“ 
eine Festplatte nicht mehr optimal genutzt 
werden kann, dann kann man nur noch auf 
die Schildkröte deuten: „Dada klickiklick 
und Mecki wieder brav”. 


Ich möchte folgendes Fazit ziehen: Der 
Macintosh ist im Grunde ein zukunftwei- 
sendes Gerät, doch ist selbst ein so her- 
vorrangender Prozessor wie der M68000 
nicht in der Lage, exzessive Grafiken 
schnell und speicherökonomisch zu ver- 
walten. Da müssen dann schon echte 32- 
Bit-Prozessoren herhalten. Hinzu kommt, 
daß insbesondere bei kommerziellen Ap- 
plikationen Grafik oft entbehrlich ist. Wer 
wollte schon 5000 Kundenadressen in 12p 
Chicago drucken? Deshalb ist es in mei- 
nen Augen nicht nur wünschenswert, son- 
dern notwendig, daß die Firma Apple ne- 
ben dem Grafik-Modus beim Macintosh 
auch den normalen Text-Modus einführt, 
weil sonst die Gefahr besteht, daß der 
Macintosh zu einem Spezialgerät abge- 
stempelt wird, das nur denjenigen Benut- 
zern attraktiv erscheint, die von Berufs 
wegen mit Grafik zu tun haben, also die 
Grafiker selbst. Will man jedoch weder auf 
die Grafik noch auf die Effizienz verzich- 
ten, dann muß man tief in die Tasche 
greifen. Laut Apple-Preisliste vom Novem- 
ber 1984 kostet der Macintosh mit der 
nunmehr erhältlichen 512K-Speicherer- 
weiterung 12.250,- DM. Nimmt man noch 
die Kosten für Drucker, Festplattenlauf- 
werk oder externes Drive sowie für An- 
wendersoftware hinzu, ist man schnell in 
einer Preiskategorie, die nur diejenigen 
Firmen nicht abschreckt, für die Geld kei- 
ne Rolle spielt. 


(Zur Mac-Sprache s. S. 94.) 
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4. FUNKTIONEN 


Mit diesem zweiten Teil wird unsere 
Serie über das Microsoft Basic, Ver- 
sion 1.0, für den Macintosh fortgesetzt. 
Es sei an dieser Stelle darauf hingewie- 
sen, daß eine verbesserte und und teil- 
weise erweiterte Version dieses Basic- 
Dialekts in Kürze erscheint, so daß wir 
wahrscheinlich bereits im abschließen- 
den Teil dieser Serie auf die Neuerun- 
gen hinweisen können. 





von Pit Capitain 


4.1. Arithmetische Funktionen 


Beim Microsoft-Basic für den Macintosh 
gibt es dieselben arithmetischen Funktio- 
nen wie beim Applesoft-Basic. Sie werden 
jedoch mit einer höheren Genauigkeit be- 
rechnet, nämlich mit der (von den numeri- 
schen Variablen her bekannten) doppelten 
Genauigkeit von bis zu 14 gültigen Ziffern. 
Im einzelnen gibt es die folgenden arith- 
metischen Funktionen: 


COS (X) - Cosinus von X 

SIN (X) - Sinus von X 

TAN (X) - Tangens von X 

ATN (X) - Arcustangens von X 

EXP (X) - Exponentialfunktion 

LOG (X) - natürlicher Logarithmus 

SOR (X) - Quadratwurzel aus X 

ABS (X) - Betrag von X 

SGN (X) - Signum-(Vorzeichen-)Funktion 


Neben der genaueren Berechnung gibt es 
beim Microsoft-Basic noch einen weiteren 
Unterschied zum Applesoft-Basic. Wenn 
bei einer arithmetischen Funktion ein 
Überlauf auftritt, so wird zwar eine Fehler- 
meldung ausgegeben, das Programm hält 
aber nicht an, sondern läuft nach der Feh- 
lermeldung weiter. Das Funktionsergebnis 
ist dann die dem Betrage nach größte dar- 
stellbare Zahl, nämlich 9.9999999999999 
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Argument aufgerufen wird, das nicht In 
dem Definitionsbereich der Funktion liegt, 
z.B. „SQR (-1)". In diesem Fall wird die 
Fehlermeldung „ILLEGAL FUNCTION 
CALL“* ausgegeben, und das Programm 
wird wie beim Applesoft-Basic unterbro- 
chen. 

Beispiele für die arithmetischen Funktio- 
nen und für die eben erwähnte Fehlerbe- 
handlung sieht man in Abb. 1. 


4.2. String-Funktionen 


Alle String-Funktionen des Applesoft-Ba- 
sic sind vorhanden: 


LEFT$ (X$,l) - Linker Teilstring von X$ mit 
der Länge | 

MID$ (X$,l) - Rechter Teilstring von X$ ab 
dem I-ten Zeichen 

MID$ (X$,1,J) — Mittlerer Teilstring von X$ 
ab dem I-ten Zeichen mit der Länge J 
RIGHT$ (X$,1) — Rechter Teilstring von X$ 
mit der Länge | 

LEN (X$) - Länge des Strings X$ 


Im Unterschied zum Applesoft-Basic kann 
bei der „LEFT$“- und „RIGHT$“-Funktion 
der Längenparameter O sein. In diesem 
Fall wird der leere String "" erzeugt. 
Neben diesen Funktionen existieren noch 
drei weitere String-Funktionen: 






Teil 2: Funktionen und Programmsteuerbefehle 


* 10 1 + 62, natürlich mit dem richtigen 
Vorzeichen versehen. 

Anders verhält es sich selbstverständlich 
bei dem Fall, daß eine Funktion mit einem 
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SPACES$ (Il) - ein String aus | Leerzei- 
chen. 

STRING$ (1,J) - ein String aus | Zeichen 
mit dem ASCII-Code J. Beispiel: 
STRING$ (5,42) = "ararx". 

STRING$ (1,X$) — ein String, der aus I-mal 
dem ersten Zeichen von X$ besteht. Bei- 
spiel: STRING$ (4,"Test“) = "TTTT", 
INSTR (1,A$,B$) — sucht das erste Vor- 
kommen des Strings B$ in dem String A$ 
ab dem I-ten Zeichen. Wenn B$ in A$ 
gefunden wird, so wird die Position von B$ 
in A$ zurückgegeben, ansonsten eine 
Null, Der Parameter | kann auch weggelas- 
sen werden; dann fängt die Suche am 
Anfang von A$ an. 
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[6 END 


Abb. 2 zeigt ein Beispiel für die Verwen- 
dung von String-Funktionen. Es wird in 
einem String eine bestimmte Zeichenfolge 
durch eine andere ersetzt. 


4.3. Typ-Umwandlung 


Beim Microsoft-Basic gibt es verschiede- 
ne Arten von Operanden (vgl. 1. Teil unse- 
rer Serie). Mittels einer ganzen Anzahl von 
Funktionen läßt sich ein bestimmter Typ in 
einen anderen umwandeln. 


FIX (X) - schneidet alle Nachkommastel- 
len von X ab. Das Ergebnis ist eine Inte- 
gerzanl. 

INT (X) - liefert die größte Integerzahl, die 
kleiner oder gleich X ist. 


Der Unterschied zwischen „FIX" und 
„INT" wird bei negativen Argumenten 
deutlich: FIX (-1.5) = -1, aber INT (-1,5) = 
-2. Es gilt: 

FIX X) = SGN (X) # INT (ABS (X)). 


CDBL (X) - die Zahl X wird im doppelt 
genauen Format zurückgegeben. 

CSNG (X) - die Zahl X wird im einfach 
genauen Format zurückgegeben. Dabei 
wird X auf 6 Ziffern gerundet, falls dies 
nötig ist (z.B. CSNG (1.23456789) = 
1.23457). 

CINT (X) — die Zahl X wird zu einer Inte- 
gerzahl gerundet (z.B. CINT (1.5) = 2). 


Neben diesen Funktionen, die einen nu- 
merischen Ausdruck in eine numerische 
Zahl in anderem Format umformen, gibt es 
noch Funktionen, die aus einer Zahl einen 
String machen und umgekenrt: 


ASC (X$) - ASCII-Code des ersten Zei- 
chens von X$. 

CHRS$ (I) - ein String, der aus dem Zei- 
chen mit ASCII-Code | besteht. 

VAL (X$) - interpretiert den String X$ als 
Darstellung einer Zahl und liefert diese 
zurück. 
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STR$ (X) - Darstellung der Zahl X als 
String. 

HEX$ (I) — wie „STR$“, die Integerzahl | 
wird jedoch in hexadezimale Form umge- 
wandelt. 

OCT$ (I) — wie „STR$“, die Integerzahl | 
wird jedoch in oktale Form umgewandelt. 
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Als kleines Beispiel ist in Abb. 3 ein Pro- 
gramm aufgelistet, das Dezimalzahlen in 
Hexadezimalzahlen umwandelt und um- 
gekehrt. 

Zu den Typ-Umwandlungs-Funktionen 
gehören noch sechs weitere Funktionen, 
die zum Abspeichern von Zahlen in soge- 
nannten „Random-Access"-Dateien be- 
nötigt werden. Diese Funktionen wandeln 
eine Zahl in einen String um und umge- 
kehrt, aber anders als die Funktionen 
s1Ik9 Und VAL 


MKIS (I) — die (2 Byte lange) Integerzahl | 
wird in einen String umgewandelt, der 2 
Zeichen lang ist. Dabei entspricht jedes 
Zeichen einem Byte der internen Darstel- 
lung von I. Zum Beispiel ergibt MKI$ (65 « 
256 + 80) den String „AP, da 65 der 
ASCII-Code von „A“ und 80 der von „P“ 
ist. 

MKS$ (X) - analog wie „MKI$“, nur wird 
die einfach genaue rationale Zahl X (intern 
4 Bytes lang) in einen 4 Zeichen langen 
String umgewandelt. 

MKD$ (X) - analog wie „MKI$“, nur wird 
die doppelt genaue rationale Zahl X (intern 
8 Bytes lang) in einen 8 Zeichen langen 
String umgewandelt. 

CVI (X$) - der 2 Zeichen lange String X$ 
wird in eine Integerzahl umgewandelt (um- 
gekehrt wie bei „MKI$"). Z.B. ist 
CVI (“AP") = 65 * 256 + 80. 

CVS (X$) - der 4 Zeichen lange String X$ 
wird in eine einfach genaue rationale Zahl 
umgewandelt (umgekehrt wie bei 
„MKS$"). 

CVD (X$) - der 8 Zeichen lange String X$ 
wird in eine doppelt genaue rationale Zahl 
umgewandelt (umgekehrt wie bei 
„MKD$*). 


Beispiele zu diesen sechs Funktionen fol- 
gen im nächsten Teil der Serie bei den 
Ein-/Ausgabe-Befehlen. 


4.4. Ein-/Ausgabefunktionen 


Es gibt einige Funktionen, die mit der Ein- 
bzw. Ausgabe im Zusammenhang stehen. 
Eine dieser Funktionen ist auch beim Ap- 
plesoft-Basic vorhanden, die anderen sind 
neu. 


INKEY$ - Falls eine Taste des Macintosh 
gedrückt wurde, die noch nicht vom Pro- 
gramm eingelesen worden ist (man kann 
ja z. B. im voraus tippen), so liefert die 
Funktion einen String, der aus diesem Zei- 
chen besteht. Ansonsten liefert „INKEY$" 
den leeren String “". Keines der so einge- 
lesenen Zeichen wird auf dem Bildschirm 
ausgegeben, 

INPUTS$ (l,#N) — gibt einen String zurück, 
der aus | Zeichen besteht. Diese Zeichen 
werden alle von der Datei mit der Nummer 
N eingelesen. Sie werden nicht auf dem 
Bildschirm ausgegeben. Man kann den 
zweiten Parameter weglassen; in diesem 
Fall werden | Zeichen von der Tastatur 
eingelesen. 
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Beispiele für diese Funktionen sieht man 
in Abb. 4. 

Die nächsten Funktionen machen eine 
Aussage über den Zustand eines Ein-/ 
Ausgabe-Gerätes: 


POS (I) — gibt die augenblickliche horizon- 
tale Position der Bildschirmausgabe an. 
Auf dieser Position erfolgt die nächste 
Ausgabe. 

LPOS (I) - wie „POS“, nur wird die Posi- 
tion des Schreibkopfes beim Drucker zu- 
rückgemeldet. 

EOF (N) - hat den Wert -1 (wahr), falls das 
Ende der Datei mit der Nummer N erreicht 
wurde. Wenn dies nicht der Fall ist, so hat 
EOF den Wert 0 (falsch). 

LOF (N) - gibt die Länge der Datei mit der 
Nummer N in Bytes an. Für den Bild- 


schirm, die Tastatur und den Drucker wird 
eine Null zurückgegeben. 

LOC (N) - bestimmt die Position der letz- 
ten Ein-/Ausgabe bei der Datei mit der 
Nummer N, z.B. bei sequentiellen Da- 
teien die Zahl der bisher gelesenen bzw. 
geschriebenen Zeichen. Bei der Tastatur 
liefert LOC eine 1, falls ein Zeichen einge- 
lesen werden kann, sonst eine 0. Bei dem 
Text-Zwischenspeicher und bei der seriel- 
len Schnittstelle ("CLIP:* bzw. "COM1:”, 
vgl. 1.3.) gibt LOC die Zahl der Zeichen 
an, die eingelesen werden können. 
POINT (X,Y) - die Farbe eines Punktes im 
Ausgabefenster mit den Koordinaten 
(X,Y). Der gesamte Macintosh-Bildschirm 
hat eine Auflösung von 512 Punkten hori- 
zontal und 342 Punkten vertikal. Punkt 
(0,0) ist die linke obere Ecke des Ausga- 
befensters. Ein weißer Punkt hat die „Far- 
be“ Nummer 30, ein schwarzer Punkt die 
Nummer 33. Falls die Koordinaten (X,Y) 
außerhalb des Ausgabefensters liegen, so 
ist POINT (X,Y) = -1. Obwohl zur Zeit nur 
2 Farben (weiß und schwarz) zur Verfü- 
gung stehen, sind in den ROM-Routinen 
und auch im Basic alle Vorkehrungen für 
eine spätere Farberweiterung vorhanden. 


Eine weitere interessante Eingabefunktion 
gibt den Zustand der Maus an: 


MOUSE (I) — kann mit Parametern von O 
bis 6 aufgerufen werden. Je nach dem 
Wert von | hat diese Funktion eine andere 
Bedeutung: 


MOUSE (0) - (Status) gibt den Zustand 
vom K{n)opf der Maus an. Eine Null be- 
deutet, daß der Knopf seit dem letzten 
Aufruf von „MOUSE (0)“ nicht gedrückt 
worden ist. Falls der Knopf doch gedrückt 
wurde, gibt „MOUSE (0)“ an, wie oft das 
der Fall war, einmal, zweimal („Doppel- 
klick“) oder gar dreimal. Das Vorzeichen 
von „MOUSE (0)“ gibt an, ob der Knopf 
der Maus noch gedrückt ist (negativ) oder 
ob er schon wieder losgelassen wurde 
(positiv). Beispiele: 


Knopf wurde zweimal gedrückt und dann 
losgelassen: MOUSE (0) = 2. 

Knopf wurde einmal gedrückt und ist noch 
unten: MOUSE (0) = -1. 

Knopf wurde nicht gedrückt: 

MOUSE (0) =. 


MOUSE (1) - (aktuelle X-Koordinate): die 
horizontale Position der Maus zu dem 
Zeitpunkt, als „MOUSE (0)“ zuletzt aufge- 
rufen wurde. 





MOUSE (2) - (aktuelle Y-Koordinate): die 
vertikale Position der Maus zu dem Zeit- 
punkt, als „MOUSE (0)“ zuletzt aufgeru- 
fen wurde. 

MOUSE (3) - (Anfangs-X-Koordinate): die 
horizontale Position der Maus zu dem 
Zeitpunkt, als der Knopf der Maus ge- 
drückt wurde. 

MOUSE (4) - (Anfangs-Y-Koordinate): die 
vertikale Position der Maus zu dem Zeit- 
punkt, als der Knopf der Maus gedrückt 
wurde. 

MOUSE (5) - (End-X-Koordinate): die ho- 
rizontale Position der Maus zu dem Zeit- 
punkt, als der Knopf der Maus losgelassen 
wurde. 

MOUSE (6) — (End-Y-Koordinate): die 
vertikale Position der Maus zu dem Zeit- 
punkt, als der Knopf der Maus losgelassen 
wurde. 
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Ein Beispiel zur Benutzung der „MOUSET- 
Funktion zeigt Abb. 5. Dieses Programm 
erlaubt es, ein Bild mit der Maus zu malen. 
Immer wenn der Knopf der Maus gedrückt 
ist, wird eine Linie der Maus folgend ge* 
zeichnet. Es werden die Grafik-ROM-Rou- 
tinen „LINETO" und „MOVETO" benutzt, 
die im 4. Teil der Serie näher erläutert 
werden. 


4.5. Sonstige Funktionen 


Bei den sonst noch vorhandenen Funktio- 
nen handelt es sich zunächst um zwei 
Funktionen für die Programmierung in Ma- 
schinensprache: 


PEEK (A) - Inhalt des Bytes mit der 
Adresse A. A muß im Bereich O bis 
16777215 (2 T 24 - 1) liegen. 

VARPTR (Variablen-Name) — die Adres- 
se des ersten Bytes der Variablen mit dem 
angegebenen Namen. Dies wird vor allem 
beim Aufruf von Maschinensprache-Pro- 
grammen benötigt. Beispiele zu diesem 
Befehl folgen in dem Abschnitt über die 
ROM-Routinen in Teil 4, aber auch in die- 
sem Teil in Abb. 9. 
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Für die Fehlerbehandlung gibt es zwei 
sehr nützliche Funktionen: 


ERR - gibt nach einem Fehler die Num- 
mer des aufgetretenen Fehlers an. Die 
Fehlernummern sind im Anhang des Ba- 
sic-Handbuchs aufgeführt. 

ERL - die Nummer der Programmzeile, in 
der der Fehler auftrat. 


Diese beiden Funktionen sind in einer 
Fehlerbehandiungsroutine sehr nützlich. 
Eine solche Routine läßt sich wie beim 
Applesoft-Basic durch den Befehl „ON 
ERR GOTO ...“ programmieren (wird wei- 
ter unten erklärt). 

Als Zufallszahlengenerator steht die Funk- 
tion „RND (l)* zur Verfügung. Je nach 
dem Wert des Integer-Parameters „I“ wird 
eine andere Zufallszahl erzeugt: 


RND (I) mit | negativ — beginnt eine neue 
Reihe von Zufallszahlen. Für jedes negati- 
ve | wird eine eigene Zufallszahlenreihe 
begonnen. 

RND oder RND (I) mit positivem | — die 
nächste Zufallszahl der Reihe. 

RND (0) - liefert die zuletzt erzeugte Zu- 
fallszahl noch einmal. 


Die erzeugten Zufallszahlen sind von dop- 
pelter Genauigkeit aus dem Bereich von O 
bis 1. 

Daneben gibt es noch einige Systemfunk- 
tionen: 


FRE (-1) - gibt die Zahl der freien Bytes 
auf der Halde des Macintosh an. 

FRE (N) mit N > = 0 - die Zahl der freien 
Bytes im Basic-Speicher. 

FRE (““) — hat dieselbe Bedeutung wie 
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Dank der eingebauten Batterie verfügt der 
Macintosh über eine fortlaufende Uhr mit 
Kalender. Die nächsten Funktionen benut- 
zen diese Uhr: 


DATES$ - liefert einen String, der das aktu- 
elle Datum darstellt. Der String hat das 
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Format “mm-dd-yyyy“, gibt das Datum al- 
so In amerikanischer Notation an. 

TIME$ - gibt einen String mit der augen- 
blicklichen Tageszeit zurück. Der String 
hat das Format “*hh:mm:ss“ (Stunde, Mi- 
nute, Sekunde). 

TIMER - gibt die Zahl der Sekunden an, 
die seit Mitternacht verstrichen sind. Dies 
läßt sich z. B. zur Zeitmessung verwen- 
den, wie Abb. 6 zeigt. 


5. PROGRAMMSTEUERBEFEHLE 


Hier werden solche Befehle vorgestellt, 
die den normalen Programmablauf verän- 
dern. Es gibt zwei verschiedene Gruppen 
von Programmsteuerbefehlen: solche, die 
den Programmablauf innerhalb eines Pro- 
gramms steuern, und solche, die von ei- 
nem Programm aus ein anderes Pro- 
gramm oder das Basic-System aufrufen. 


5.1. Steuerung in einem Programm 


Diese Befehle sind fast alle auch beim 
Applesoft-Basic vorhanden. Es gibt noch 
einige neue Befehle, die das strukturierte 
Programmieren, das manche vielleicht von 
Pascal gewöhnt sind, etwas besser unter- 
stützen. 


FOR I=A TO E (STEP S) - die normale 
FOR-Schleife. Als Laufvariable (hier |) 
kann jeder numerische Typ verwendet 
werden (anders als beim Applesoft-Basic, 
wo keine Integervariable I% erlaubt ist). 
NEXT - bezeichnet das Ende einer FOR- 
Schleife. Wie beim Applesoft-Basic kön- 
nen der oder die Namen der Laufvariablen 
angegeben werden. 

GOTO nnn bzw. GOSUB nnn - der nor- 
male GOTO- bzw. GOSUB-Befehl. Es gibt 
leider auch hier noch keine symbolischen 
Adressen. 

RETURN - bezeichnet das Ende eines 
Unterprogramms, das mit „GOSUB” auf- 
gerufen wurde. Anders als beim Ap- 
plesoft-Basic kann nach dem „RETURN”- 
Befehl eine Zeilennummer angegeben 
werden, zu der gesprungen werden soll, 
jedenfalls steht es so im Handbuch. In 
Wirklichkeit wird dadurch ein „SYNTAX 
ERROR“ erzeugt. Durch diesen Befehl 
könnte der Applesoft-Befehl „POP“ simu- 
liert werden, der beim Microsoft-Basic 
nicht mehr vorhanden ist, z. B. so: 


9600 POP 

9610 .... (Applesoft) 
wird zu 

9600 RETURN 9610 
9610 .... (Macintosh) 
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Wahrscheinlich (oder besser: hoffentlich) 
wird dieser Fehler bei der in Kürze er- 
scheinenden neuen Version des Micro- 
soft-Basic behoben sein. 


ON I GOTO n1,n2.... und 

ON ! GOSUB ni,n2,... — berechneter 
Sprung bzw. berechneter Aufruf. Diese 
Befehle haben dieselbe Wirkung wie beim 
Applesoft-Basic. 


IF X THEN ... ELSE ... — der IF-Befehl 
kann, wie hier gezeigt, noch einen ELSE- 
Teil besitzen. Dieser Teil wird dann ausge- 
führt, wenn die Bedingung (hier X) nicht 
erfüllt ist (also wenn der Ausdruck X den 
Wert 0 = falsch hat). Anstelle des Wortes 
„IHEN“ kann auch das Wort „GOTO" 
eingesetzt werden. Falls mehrere IF- 
THEN-ELSE-Befehle verschachtelt wer- 
den, bezieht sich ein „ELSE“ immer auf 
das nächstgelegene „THEN" (wie beim 
UCSD-Pascal), z. B. erzeugt der Ausdruck 
IFA>BTHENIFB>CTHEN ?"X" ELSE 
ao 

die folgende Ausgabe: 

falls A>B>C dann „X", 

als 20 2 Bean, 

falls B> = A dann keine Ausgabe. 

Wie in Pascal gibt es beim Microsoft-Basic 
außer der FOR-NEXT-Schleife noch einen 
anderen Schleifenbefenl: 


WHILE X: ... : WEND - entspricht der 
WHILE-Schleife bei Pascal. Die Befehle 
zwischen „WHILE“ und „WEND“ werden 
solange ausgeführt, wie die Bedingung X 
erfüllt ist (also einen Wert < > 0 liefert). 
Diese Schleifen können verschachteit 
werden. Auch hier gilt: jedes „WEND 
bezieht sich auf das nächstgelegene 
„WHILE“, wie man in Abb. 7 sieht. 
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Wie beim Applesoft-Basic bietet auch das 
Microsoft-Basic des Macintosh die Mög- 
lichkeit der Fehlerbehandlung: 


ON ERROR GOTO nnn - hat dieselbe 
Wirkung wie der Applesoft-Befehl 


„ONERR GOTO nnn*. Nachdem diese 
Zeile ausgeführt wurde, wird bei einem 
auftretenden Fehler keine Fehlermeldung 
ausgegeben, sondern zu der angegebe- 
nen Zeilennummer gesprungen. 


In der Fehlerbehandlungsroutine kann 
dann die Art des Fehlers und die Zeile, in 
der er aufgetreten ist, durch die Funktio- 
nen „ERR“ und „ERL“ bestimmt werden 
(s.o.). Beim Applesoft-Basic mußte man 
noch ein „PEEK (222)" ausführen, um 
wenigstens an die Fehlernummer heran- 
zukommen. 

Die Wirkung eines „ON ERROR GOTO”- 
Befehls kann man wie folgt aufheben: 


ON ERROR GOTO 0 — bewirkt, daß bei 
einem Fehler wieder eine Fehlermeldung 
ausgegeben und das Programm abgebro- 
chen wird. 


Zur Beendigung einer Fehlerbehand- 
lungsroutine gibt es den Befehl „RE- 
SUME“, Dieser Befehl existiert in mehre- 
ren Varianten: 


RESUME oder RESUME 0 - beginnt den 
weiteren Programmablauf bei dem Befehl, 
der den Fehler ausgelöst hat (wie beim 
Applesoft-Basic). 

RESUME NEXT - beginnt mit dem Befenl, 
der direkt nach dem Befehl folgt, welcher 
den Fehler ausgelöst hat. 

RESUME nnn - setzt die Programmaus- 
führung bei der Zeile mit der Nummer nnn 
fort. 
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Mit diesen Befehlen laßt sich eine sehr 
komfortable Fehlerbehandlung program- 
mieren. Zum Testen einer solchen Routine 
(und natürlich für weitere Anwendungen) 
gibt es noch einen Befehl: 


ERROR I - simuliert das Auftreten des 
Fehlers mit der Nummer |. | kann die Wer- 
te 1 bis 255 annehmen. Da beim Micro- 
soft-Basic längst nicht alle dieser Fehler- 
nummern verwendet werden, lassen sich 


auf diese Art eigene Fehler definieren. Ein 
Beispiel für den „ERROR“-Befehl gibt 
Abb. 8. 


5.2. Wechsel von Programmen 


Zu dieser Gruppe gehören Befehle, die 
von einem Programm aus ein anderes 
Programm aufrufen, aber auch solche Be- 
fehle, die ein Programm vom Basic-Sy- 
stem aus starten oder ein Programm an- 
halten. 


RUN nnn - startet das im Speicher befind- 
liche Programm bei der angegebenen Zei- 
ie. Falls keine Zeilennummer angegeben 
ist, beginnt das Programm mit der ersten 
Programmzzeile. 

RUN X$,R - lädt das Programm mit dem 
Namen X$ von der Diskette ein und startet 
es. Wenn man kein “,R" an den Dateina- 
men anhängt, dann werden alle geöffneten 
Dateien geschlossen, bevor das neue Pro- 
gramm geladen wird. Beispiele: 


RUN “Pit’s Disk: Test“ startet das Pro- 
gramm, das auf der Diskette “Pit's Disk” 
unter dem Namen “Test” abgespeichert 
ist. Dabei werden alle noch offenen Datei- 
en geschlossen. 

RUN “FilelO.3“,R startet das Programm 
mit dem Namen “FilelO.3" und läßt dabei 
alle bisher geöffneten Dateien offen. 


CONT, 

END und 

STOP - haben dieselbe Bedeutung 
wie beim Applesoft-Basic. 


Dieselbe Bedeutung wie der Befehl „RUN 
X$,R“ hat auch ein anderer Befehl: 


LOAD X$,R - wie „RUN X$,R". 

LOAD X$ - lädt das Programm mit Namen 
X$ in den Speicher, das Programm wird 
aber nicht ausgeführt. Man befindet sich 
danach im Basic-Beiriebssytem. 

LOAD ohne Dateinamen — lädt ein Pro- 
gramm, dessen Name der Benutzer in ei- 
nem Dialogfenster festlegen kann (vgl. 
Abb. 3 im 1. Teil der Serie). 

MERGE X$ -— mischt das im Speicher 
befindliche Programm mit einem Pro- 
gramm von der Diskette. Das Programm 
mit dem Namen X$ muß im ASCIl-Format 
auf der Diskette gespeichert worden sein 
(vgl. 1. Teil). Das „Mischen“ geht so vor 
sich: Alle Zeilen des neuen Programms 
werden zu dem Programmtext des alten 
Programms im Speicher hinzugefügt. Da- 
bei werden Zeilen des alten Programms, 
die dieselbe Zeilennummer haben wie 


Zeilen des neuen Programms, durch die 
neuen Zeilen überschrieben. 


Durch diesen Befehl werden die Variablen 
gelöscht. Nach dem Befehl läuft ein Pro- 
gramm auch nicht weiter, sondern man 
befindet sich dann wieder im Basic-Be- 
triebssystem. Mit dem nächsten Befehl 
kann man das aber vermeiden: 


CHAIN X$,nnn bzw. 

CHAIN MERGE X$,nnn - lädt ein neues 
Programm von der Diskette und startet es. 
Dabei können Variablen des alten Pro- 
gramms an das neue Programm überge- 
ben werden. Alle offenen Dateien bleiben 
geöffnet. 


Mit dem Zusatz „MERGE“ wird das neue 
Programm, das in diesem Fall eine ASCII- 
Datei sein muß, mit dem alten Programm 
vermischt, wie es oben bei dem Befehl 
„MERGE“ beschrieben wurde. 

Man kann mit „nnn“ eine Zeilennummer 
angeben, bei der das neue Programm ge- 
startet werden soll. Falls nnn weggelassen 
wird, beginnt das neue Programm mit der 
ersten Zeile. 

An den „CHAIN“-Befehl kann man noch 
bis zu zwei Zusätze anfügen: 


‚ALL - bedeutet, daß alle Variablen an das 
neue Programm übergeben werden. Falls 
dieser Zusatz nicht vorhanden ist, muß 
über einen besonderen Basic-Befehl 
(„ COMMON“, s. 5. Teil) angegeben wer- 
den, welche Variablen übergeben werden 
sollen. 

‚DELETE n1-n2 — bedeutet, daß vor dem 
Laden bzw. Einfügen des neuen Pro- 
gramms die Zeilen mit den Nummern von 
ni bis n2 gelöscht werden. Dies kann 
dazu benutzt werden, um Platz für ein 
neues Unterprogramm zu schaffen, das 
mit „CHAIN MERGE“ in einen bestimm- 
ten Zeilenbereich (z.B. n1-n2) geladen 
werden soll. 


Wenn einer dieser Zusätze benutzt wird, 
dann muß das Komma zwischen „X$“ und 
„hnn“ (s. Syntax oben) auch dann ange- 
geben werden, wenn gar keine Anfangs- 
zeilennummer angegeben ist: 


CHAIN “NextProgram“ ‚ALL ist falsch, 
CHAIN "NextProgram"“ „ALL ist richtig! 


Beispiele für den „CHAIN“-Befenhl: 
CHAIN “Prog.3",1000,ALL — lädt das Pro- 


gramm “Prog.3" in den Speicher und star- 
tet es bei Zeile 1000. Es werden alle Varia- 
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blen des alten Programms an das neue 
Programm übergeben. 

CHAIN MERGE  “Proc.New" ALL,DE- 
LETE 5000-9999 - löscht bei dem im 
Speicher befindlichen Programm die Zei- 
len 5000 bis 9999 und fügt dann das Un- 
terprogramm “Proc.New“ zu dem alten 
Programm hinzu. Alle Variablen bleiben 
erhalten. 

Nach diesen doch relativ komplizierten 
Befehlen gibt es noch zwei einfachere 
Steuerbefehle: 


SYSTEM - beendet das Basic-System 
und kehrt zum normalen Macintosh-Be- 
triebssystem zurück. 

CALL Variablenname - ruft eine in Ma- 
schinensprache geschriebene Routine 
auf. Als Variablenname kann der Name 
einer der ROM-Routinen verwendet wer- 
den, die im Teil 4 beschrieben werden. 
Ansonsten ist „Variablenname“ der Name 
einer numerischen Variable, die die An- 
fangsadresse der Maschinensprache- 
Routine angibt. 
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Hinter diesem Befehl kann in Klammern 
(„(*,„)") eine Liste von Argumenten an- 
gegeben werden, die vor dem Aufruf der 
Routine auf den Stack geschoben werden. 
Auf diese Art lassen sich Parameter an die 
Maschinensprache-Routine übergeben. 

Ein Beispiel dazu zeigt Abb. 9. Das Ma- 
schinensprache-Programm wird aus den 
DATA-Zeilen in das Array „CODE%" ein- 
gelesen. Es vertauscht den Inhalt von zwei 
Integer-Variablen. Hier sieht man auch die 
Benutzung der Funktion „VARPTR (s.o.). 
Sie liefert zum einen die Änfangsadresse 
des Maschinenprogramms, zum anderen 
die Adressen der beiden Variablen. Falls 
jemand an dem Maschinen- „Progrämm- 
chen“ selbst interessiert ist, ist im Ausga- 
befenster der Abb. 9 das Programm in 
mnemonischer (lesbarer) Form angege- 
ben; die Ausgabe des aufgelisteten Pro- 


gramms steht unter dem Strich. 
# 


83 


die r are uk EEE En u __"m 
a u aUHı 
ae = ORIG ze 


ANS 


Rx DATA Z kl: un 
= u WE | WE PTereg / 
’ Br Eat = Fe , N a 
CARRIER | EXTERNAL a 8% 
| “ f CONTROL | | . 
er ei ONLINE 117. a 2 
v23 


u 


te 


Technolony 








Das Modem WS 2000 ermöglicht über das Telefonnetz die 
Daten-Kommunikation zwischen zwei Computern an beliebi- 
gen Orten der Welt. Durch neuentwickelte, hochintegrierte 
Schaltungen kann es sowohl Signale nach den Standards der 
CCITT als auch von BELL verarbeiten. Damit sind praktisch 
alle Länder der Erde abgedeckt. 








Weltweite 
Datenübertragung mit 
dem WS 2000 








Ein Universalmodem für alle Normen 


In einem schwarzen ABS-Kunststoffge- 
häuse vereint, bietet das World Standard 
Modem WS 2000 alle gebräuchlichen 
Übertragungs-Standards und -Geschwin- 
digkeiten an und macht seinem Besitzer 
Ferndatenbanken, Bulletin Boards und 
BTX zugänglich. 

Das Modem wird mit dem Rechner über 
eine V24-Schnittstelle verbunden, die bei 
Apple, außer im Modell Ilc, nicht serien- 
mäßig vorhanden ist und deshalb extra 
gekauft werden muß. Die Verbindung des 
Modems mit dem Telefon erfolgt über eine 
auf der Rückseite des Gerätes herausge- 
führte Telefon-Zuleitung, die bedauerli- 
cherweise nur der englischen Postnorm 
entspricht. Daher ist es fast unumgänglich, 
den Stecker abzutrennen und die ange- 
schlossenen Zuleitungen einzeln mit der 
Telefonleitung oder dem zwischenge- 
schalteten Akustikkoppler zu verbinden. 
Auf der Frontseite des WS 2000 (s. Bild) 
sind die Bedienungselemente übersicht- 
lich angeordnet. Der größere der drei 
Drehschalter dient zur Wahl der Betriebs- 
art. Hier stehen folgende Möglichkeiten 
zur Verfügung: 


USA Bell 103, 300 Baud, Voll Duplex 
Empfangen 

USA Bell 103, 300 Baud, Voll Duplex 
Senden 

USA Bell 202, 1200 Baud, Halb Duplex 


CCITT V23, 1200 Baud, Halb Duplex 
CCITT V23, 600 Baud, Halb Duplex 
CCITT V23, 300 Baud, Voll Duplex Emp- 
fangen 

CCITT Vv23, 300 Baud, Voll 
Senden 


Duplex 


Beide 1200-Baud-Betriebsarten besitzen 
eine zusätzliche, mit EQU bezeichnete 
Stellung, durch die ein Entzerrer-Filter ak- 
tiviert wird. Allerdings sollte dieses nur bei 
gestörten Telefonleitungen benutzt wer- 
den, da es sonst seinerseits wieder zu 
Störungen führen kann. 

Mit dem oberen der beiden kleinen Dreh- 
schalter wird festgelegt, welchem der bei- 
den Übertragungs-Kanäle die höhere 
Baud-Rate zugeordnet werden soll. Für 
BTX und die verwandten Dienste Prestel 
bzw. Micronet muß dieser Umschalter in 
der Position 1200 RX - 75 TX stehen, d.h. 
Daten werden mit 1200 Baud empfangen, 
während gleichzeitig mit 75 Baud gesen- 
det wird. 

Der dritte Drehschalter schließlich verfügt 
über zwei Stellungen: ON LINE und LO- 
CAL. In der ON LINE-Stellung ist das Mo- 
dem mit der Telefonleitung verbunden. In 
der LOCAL-Stellung werden die vom 
Computer kommenden Signale bis zum 
Ausgang des Modems verarbeitet und 
gleich wieder durch das Modem zurückge- 
führt. Die Stellung LOCAL wird also immer 
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dann zu wählen sein, wenn keine Verbin- 
dung aufgebaut ist. Außerdem kann hier 
ein komplettes Selbsttest-Programm akti- 
viert werden. 

Zur Anzeige und Überwachung des Be- 
triebszustandes dienen fünf Leuchtdi- 
oden. Eine mit POWER bezeichnete Diode 
zeigt an, daß das Modem eingeschaltet ist 
und mit Strom versorgt wird. TX DATA 
leuchtet, wenn das Modem Daten vom 
Computer erhält und aussendet, RX Data 
leuchtet, wenn Daten empfangen werden, 
und CARRIER weist auf das Vorhanden- 
sein der Trägerfrequenz hin. ON LINE 
schließlich zeigt an, daß das Modem auf 
die Telefonleitung geschaltet ist. 

Wie nun gestaltet sich die Benutzung des 
Modems? Zuerst muß das Modem mit der 
V24-Schnittstelle des Computers verbun- 
den werden. Sehr bewährt hat sich hier als 
Interface die Super Serial Card von Apple, 
die über einen speziellen Kommunika- 
tions-Modus verfügt. Dieser bietet eine 
Vielzahl von Möglichkeiten zur Einstellung 
des Datenformats und der Datenübertra- 
gungsgeschwindigkeit. Die Baud-Raten 
von Modem und Interface müssen selbst- 
verständlich übereinstimmen. Für die Be- 
nutzung von BTX und verwandten Dien- 
sten bedarf es umfangreicher Software. 
Sollen hingegen Mailboxen oder Bulletin 
Boards in Anspruch genommen werden, 
so reicht die Kommunikations-Software 
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der Super Serial Card vollständig aus. Die- 
se wird durch die Tastenfolge IN#n ({n = 
Slot, in der die SSC eingesteckt ist) Otrl-A 
T aktiviert. Als nächstes ist über Telefon 
oder mit der Zusatzplatine AD-2 über den 
Computer der gewünschte Rechner anzu- 
wählen. Hat dies Erfolg und ist die Träger- 
freauenz als Pfeifton zu hören, so muß nur 
noch das Modem ON LINE geschaltet 
werden; der weitere Ablauf der Kommuni- 
kation hängt von der Art des angerufenen 
Systems ab. 

Die an sich schon sehr umfangreichen 
Möglichkeiten des WS 2000 können durch 
getrennt erhältliches Zubehör noch we- 
sentlich erweitert werden. Als wichtigste 
sind an dieser Stelle die Auto Dial/Auto 








Answer-Platinen AA-2 und AD-2 für auto- 
matisches Wählen und automatische An- 
rufbeantwortung zu nennen. Alle Betriebs- 
art-Umschaltungen und die Zusatzplatinen 
sind nach dem Einsatz weiterer IC’s auch 
direkt vom Rechner aus über ein Steuer- 
Kabel zu bedienen. Die Anschlußbelegung 
entspricht allerdings dem ACORN B Com- 
puter. 

Das Modem WS 2000 besitzt z. Zt. Keine 
allgemeine fernmeldetechnische Zulas- 
sung (FTZ-Nummer) und teilt dieses 
Schicksal mit praktisch allen erhältlichen 
Modems. Die Deutsche Bundespost ge- 
stattet deshalb keinen Anschluß des WS 
2000 an das Telefonnetz. 

Fazit: Das WS 2000 stellt aufgrund seiner 


Eln Quickie für den PRODOS.EDITOR 


Der speziell für das Betriebssystem Pro- 
DOS gedachte Applesoft-Editor namens 
PRODOS.EDITOR (Hüthig Software Ser- 
vice) läßt u.a. die Tasten Q, W, E,R, T und 
Z als frei definierbare Tastatur-Macrobe- 
fehle mit einer Länge von je 31 Zeichen 
zu. Da der Editor jedoch in einem von 
ProDOS geschützten Speicherbereich 
liegt, können selbstdefinierte Macros nicht 
direkt mit BSAVE und BLOAD gespeichert 
bzw. geladen werden. Deshalb wurde das 
folgende Applesoft-Programm PRODOS.- 
EDITOR.MACROS entwickelt, mit dem 
beliebig viele Macrotabellen angelegt wer- 
den können. Damit bei Macros Cirl-Zei- 
chen wie etwa Return (Ctrl-M) zulässig 
sind, muß man die Definition eines Macros 
entweder mit der Del-Taste (Apple Ile/lIc) 
oder mit Gtrl-Null (Apple I! Plus) abschlie- 
Ben. Diese zwei Tasten sind die einzigen 
Ctrl-Zeichen, die nicht Bestandteil eines 
Macros (und im übrigen auch nicht eines 
Strings) sein können. Ctrl-Zeichen werden 
am Bildschirm invers angezeigt. Da auch 
Links- und Rechtspfeil zu den zulässigen 
Ctrl-Zeichen gehören, ist ein Editieren der 
Macrozeile nicht möglich. 

Die Unterroutine in dem Applesoft-Pro- 
gramm Zeilen 350-430 ist auch für andere 
Programme verwendbar, bei denen in ei- 
nen String beliebige Oftrl-Zeichen einge- 
geben werden sollen. Man beachte je- 
doch, daß die Routine nicht mit der 80- 
Zeichenkarte des Apple Ile funktioniert, da 
diese z. B. kein ESC als Otrl-Zeichen zu- 
läßt. Us 
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vielfältigen Betriebsarten ein universell 
einsetzbares Modem dar. Die Verwen- 
dung mit einem Apple-Rechner ist unter 
Einsatz der Super Serial Card unproble- 
matisch. Das erhältliche Zubehör erlaubt 
einen den individuellen Erfordernissen 
entsprechenden Ausbau der Leistungs- 
merkmale des Modems. 

Bezugsquelle: Miracle Technology (UK) 
Ltd., Ipswich IP1 1XB. Importeur: Claus F. 
Erbrecht, Computer Related Products, 
Lappenbergsallee 37, 2000 Hamburg 20, 
Tel. 040/8505255. WS 2000 DM 798,-, 
Zusatzplatinen je DM 199,50. Weiteres 
Zubehör wie Kabel, Interface, Software 
usw. ist erhältlich, ein Akustikkoppler AC- 
1 in Vorbereitung. 4 


Applesoft-Editor-Macros 


100 TEXT : HOME : CLEAR : DIM M$(6), S$(6), L{6) 
110 INVERSE : PRINT "PRODOS.EDITOR-MACROS": NORMAL 
120 PRINT : PRINT "1 MACROS EINLESEN'" 

130 PRINT : PRINT "2 MACROS ANLEGEN" 

140 PRINT : PRINT "3 ENDE! 

150 PRINT 


160 GET X$: ON X$ < 
ns GOTO 160: IE X = ar THEN END 

170 REM *** MACROS EINLESEN x%*%* 

180 IF X$ = "1" THEN HOME : PRINT : 
LAYNGATT: 
"RESTORE";N$: GOSUB 290: END 

190 REM *»** MACROS ANLEGEN x*x* 

200 HOME : PRINT "DEL = ENDE MACRO-EINGABE" 

2i0 DATA GW ER. LT Z 

220 RESTORE : FOR Y = 1 T0 6: READ M${Y): 

2580 FOR Y = 1 TO 6: PRINT : INVERSE : 
NORMAL. 2 /ERINT We 
L(y) = Lo NeX: 

240 PRINT : PRINT "OKAY J/N "; 

250 GET X$: IF X$ = "N" THEN 100 

260 IF X$ < > "J" THEN 250 

270 HOME : 
";N$: PRINT CHR$ (4)"STORE";N$: END 

280 REM #*%* MACROS POKEN #xx* 

230 FORY=1T06 

300 H = 36182 + (Y- 1) « 32 

310 FÜRKE H:L(y) 


NEXT 
PRINT M$(Y};: 
GOSUB 360:5$(Y) = A$: 


> HJ ANDXS < > "al AND XS < > 


PRINT CHRS 
INPUT "NAME: ";N$: PRINT CHR$ (4) 


GOSUB 290: PRINT CHR$ (4)"CAT": INPUT "NAME: 


320 FORX= 1 TO L(Y):H=H+ 1: POKEH, ASC ( MID$ 


(S$(Y),X,1)) + 128: NEXT X 
350 NEXT Y 
340 RETURN 
350 REM *** INPUT MACROS x 
360 L= 1:4$ = "" 
370 GET X$: ON X$ < 
2 1E0T0A30 
3800 A= ASC (X$): ONA < 
360:L = L- 1: C0OTO 430 
390 45 =A$ + X$ 
400 IF A < 32 THEN 
NORMAL : 
410 PRINT X$; 
420 IFL< 31 THENL=L+ 1: C0TO 370 
430 PRINT " "L: RETURN 


INVERSE : 
GOTO 420 


il 


> "" GOTO 380: ON L = 1 GOTO 360:L 


> 127 GOTO 390: ON L = 1 GOTO 


PRINT CHR$ (A + Säl:: 










Apple 
Imagewriter 


DM 1.450.-- ‘ 













Versand 
per Nachnahme oder 

Vorauskasse (bar oder Scheck) 
Alle Angebote basieren auf aktuellen 
Tegespreisen. Vollständige Preisliste gegen 

DM 4.00 in Briefmarken. Bestellungen schriftlich oder 
telefonisch. Lieferung unfrei, ab Lager innerhalb 24 Stunden. 


>> nyuramid versand koslik *°“ss°® 
>>> 7800 freiburg steinhalde 103 <cc<x« 









>22, > telefon DToi 7b au rege 





Eigentlich wollte ich einen nüchternen Be- 
richt schreiben, aber jetzt wird es doch ein 
ganz persönlicher. Den Anstoß zu diesem 
Umschwung gab ein Test über Exbasic 
Level Il im neuen Magazin Apple’s (CW- 
Publikationen Verlag). Tester Andreas 
Dripke stimmte mich dort so positiv ein, 
daß ich nicht umhin konnte, einmal selber 
alles ganz genau nachzuprüfen. 

„So etwas wie eine Verpackung scheint 
der Hersteller nicht zu kennen, das Ganze 
kommt reichlich lose, aber immerhin 
bruchsicher eingewickelt ins Haus. Hier 
hat man offensichtlich der Güte des Pro- 
dukts die Präferenz gegenüber bunter 
Verpackung gegeben.“ schreibt Tester 
Dripke. Ersteres konnte ich bestätigen, 
letzteres nur hoffen. 


Die Handbücher 


Exbasic Level II wurde 1981 für Commo- 
dore-Rechner entwickelt und 1983 dann 
für den Apple angepaßt. Diese Tradition 
schlägt sich in zwei Handbüchern nieder, 
die Sie geliefert bekommen. Ein dickes 
(ca. 110 Seiten) für Commodore und ein 
Nachtrag (ca. 25 Seiten) für Apple. „Die 
Bücher sind gut zu lesen“ schreibt Tester 
Dripke. Motiviert stürzte ich mich in das 
Apple-Addendum, das mir bald sagte, ich 
solle jetzt einige Seiten im Commocdore- 
Heft weiterlesen. So getan, gelangte ich 
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bald wieder in den Nachtrag zurück, wo 
mir dann erklärt wurde, was alles von dem 
eben Gelesenen bei Apple nicht gilt und 
wie es dort statt dessen heißen muß. Das 
Spielchen ging einige Male hin und her, 
vor und zurück. Wahrhaft gut zu lesen! Für 
fast 400,- DM sollte der Käufer eigentlich 
erwarten können, eine vollständige Anlei- 
tung zu erhalten. Aber messen wir Exbasic 
Level Il lieber an seinen Taten als an sei- 
ner Beschreibung. 


Die Platine 


Tester Dripke ermutigte mich: „Der Einsatz 
der Platine in den Computer ist problem- 
los. Allerdings: Im Unterschied zu der 
Mehrzahl der Apple-Karten müssen die 
Bauteile von vorne gesehen nach links 
zeigen.“ Also frisch ans Werk, Netzteil 
aus, den Deckel ab und die Karte in den 
empfohlenen Slot 2. Die erste Überra- 
schung: Sie paßt nicht! Das EPROM 2764 
mit Sockel ist gewaltig dick und macht den 
Bausteinen auf meinem Druckerinterface 
in Slot 1 den Platz streitig, so daß beide 
Karten nicht gleichzeitig im Gerät stecken 
können. Die Apple-Slots stehen nun ein- 
mal sehr eng, und nur wenn sich alle Her- 
steller an das ungeschriebene Gesetz hal- 
ten, ihre Karten nach rechts zu orientieren, 
wird es zwar eng, aber es geht. Exbasic 
Level II ist meines Wissens die erste Kar- 


te, die nach links zeigt. Ihr Hersteller sollte 
schleunigst den Aufbau ändern, was bei 
nur 6 Bauteilen nicht unlösbar sein dürfte. 


Die Versionen 


Exbasic Level Il gibt es in zwei Versionen 
für den Il Plus und den Ile. Diese Tatsache 
ist weder im Handbuch erwähnt noch auf 
der Karte selbst vermerkt. Die Unterschie- 
de liegen ausschließlich in der Software, 
die in der Version für den Ile auch die 
Cursortasten, DEL und TAB auswertet so- 
wie den 80-Zeichen Bildschirm unter- 
stützt. Bei der Initialisierung der Karte wird 
der Zustand des Rechners ebenso über- 
prüft wie das Vorhandensein von Steck- 
karten. Scheitern diese Tests, weil z.B. ein 
Apple Il Plus vorliegt, aber eine lle-Karie 
verwendet wird, stürzt das System ab. Ei- 
ne Fehlermeldung wäre freundlicher ge- 
wesen. Also achten Sie auf die richtige 
Karte! Für den Apple Ilc ist eine Disketten- 
version in Vorbereitung. 


Das Software-Modul 


Exbasic Level Il ist in 6502-Assembler ge- 
schrieben und belegt den Adreßbereich 
von $D000 bis $EFFF parallel zum Ap- 
plesoft-Interpreter. Damit es hier keine 
Probleme gibt, werden bei der Initialisie- 
rung entsprechende Treiberroutinen nach 
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ım Test 


Eine Basic-Erweiterung bringt Sie ins Staunen, 


nicht nur positiv. 


von Dr. Jürgen B. Kehrel 


Den Versuch, das antiquierte Applesoft-Basic zu 
erweitern, haben schon viele unternommen. 

Ganze Sammlungen von nachladbaren Routinen sind 
dabei entstanden, die zumeist über den Ampersand-Vektor 
& an Applesoft angekoppelt werden. Exbasic Level ll geht 
hier einen anderen Weg. Es ist ständig auf einer kleinen 
Karte vorhanden, die Sie bei Bedarf mit einem POKE 


$300-$3CF geschrieben. Dieser Spei- 
cherbereich steht Ihnen also nicht mehr 
zur Verfügung, z.B. für eigene kleine As- 
semblerprogramme. Die gesamte Softwa- 
re ist in einem 8K-EPROM abgelegt und 
mit 3 weiteren integrierten Schaltungen 
auf der kleinen Platine untergebracht. Die 
Typenbezeichnungen dieser Bausteine 
sind heruntergekratzt, eine um sich grei- 
fende Unsitte bei Herstellern, um Nach- 
bauten zu erschweren. Ein Schaltbild er- 
halten Sie selbstredend dann auch nicht. 
Wenn einmal etwas kaputt gehen sollte, 
sind Sie immer auf den Service des Händ- 
lers oder des Herstellers angewiesen. 


Der Full-Screen-Editor 


Der Apple ist nur mit einem Minimaleditor 
ausgestattet, der von Exbasic Level Il zu 
einer vollwertigen Programmierumgebung 
ausgebaut wird. Der neue Editor erlaubt 
es, Programmzeilen zu ändern, ohne die 
ganze Zeile mit dem Cursor überstreichen 
zu müssen. Bei einem RETURN wird die 
ganze Zeile so übernommen, wie sie auf 
dem Bildschirm steht, unabhängig von der 
Position des Cursors. EINFÜGEN und 
LÖSCHEN werden über ESC und Pfeilta- 
sten (Il Plus) oder über DEL und TAB (lle) 
gesteuert. Das funktioniert auch im Direkt- 
modus, wenn Sie z. B. aus einem CATA- 
LOG ein Programm aufrufen wollen. Sie 


aktivieren können. 


schreiben nur RUN in der richtigen Höhe 
und drücken Return. Der Rest der Zeile 
wird mit übernommen. Die Cursortasten 
rollen Ihr gesamtes Programm, das nach 
oben oder unten über den Bildschirm ge- 
schoben wird, ohne daß Sie auch nur ein- 
mal LIST sagen mußten. Ausgewachsene 
Editoren bringen sicherlich noch etwas 
mehr, der Exbasic-Editor ist aber für die 
meisten Fälle schon voll ausreichend. 


Die Hilfsfunktionen 


Die Hilfsfunktionen unterstützen die Arbeit 
des Editors. Es sind im einzelnen: 

HELP Zeigt alle Befehlsworte von Exbasic 
Level Il an. 

MEM Zeigt die Größe und Belegung des 
Apple-Speichers an. 

MATRIX/DUMP Gibt alle einfachen und 
alle Feldvariablen aus. 

MATRIXDIM Zeigt die Dimensionierung 
aller Feldvariablen. 

SYSTEM Identisch mit CALL -151. 
BASIC Schaltet Exbasic Level Il ab. 
MERGE Fügt ein Programm von Diskette 
oder Kassette in oder an ein im Speicher 
stehendes Programm. 

AUTO Automatische Zeilennummernge- 
nerierung mit wahlweisem Anfang und be- 
stimmbarer Schrittweite. 

RENUM Numeriert ein Programm neu, lei- 
der immer nur ganz. 





2 hHARdWARE-TEST DR 


FIND Sucht nach einem Befehl oder Text 
im Speicher. Listet entsprechende Zeilen. 
Die angenehmste Überraschung war für 
mich die Funktion ON/OFF. Beim Auste- 
sten von Programmen wird nicht nur 
„SYNTAX ERROR" ausgegeben, sondern 
statt dessen die ganze Zeile gelistet und 
der Cursor über die fehlerhafte Stelle ge- 
setzt, die so In Windeseile zu berichtigen 
ist, da auch der Editor natürlich sofort aktiv 
ist. OFF schaltet zum normalen Applemo- 
dus zurück. Das Exbasic TRACE zeigt 
nicht nur die Zeilennummern wie Ap- 
plesoft, sondern listet die entsprechende 
Zeile und stellt einen Leuchtzeiger über 
den gerade bearbeiteten Befehl. Mit 
SPEED= 100 oder ähnlich können Sie 
dann genüßlich Ihrem Programm „auf die 
Fingersehen“. 


Mathematische Funktionen 
MIN/MAX Sucht in einer Liste von Zahlen 


oder Variablen den kleinsten/größten 
Wert. 

ODD Prüfung auf gerade oder ungerade 
Zahl. 

HEX$/DEC Umrechnung Hexadezimal/ 
Dezimal. 


RND Erzeugt ganzzahlige Zufallszanlen > 
= 1. 
ROUND Rundet Dezimalzahlen auf eine 


vorgegebene Zahl von Nachkomma- 
stellen. 

FRAC Gibt den Nachkommateil einer Zahl 
aus. 


Bildschirmbefehle 


SCREEN Definiert das Bildschirmfenster. 
Ersetzt POKE 32. 39... 
DELLINE Löscht eine Zeile, 
Rest von unten nach. 
INSTLINE Fügt eine Zeile ein, schiebt den 
Rest nach unten. 

BEGINLINE Löscht vom Cursor zum Zei- 
lenanfang. 

ENDLINE Löscht vom Cursor zum Zeilen- 
ende = CALL -868. 

BEGINPAGE Löscht vom Cursor zum 
Seitenanfang. 

ENDPAGE Löscht vom Cursor zum Sei- 
tenende = CALL -958. 

SCREEN UP/DOWN Schiebt den ganzen 
Bildschirm eine Zeile hoch oder runter. 


rückt den 


Basicbefehle 


IF.-THEN.ELSE Ermöglicht Mehrfachver- 
zweigungen für den Fall, daß die IF-Bedin- 
gung nicht zutrifft. 

CLEAR Array Löscht ein Variablenfeld mit 
Inhalt und Dimensionierung. 
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DEEK/DOKE Doppelbyte-PEEK bzw. 
-POKE, um Zahlen bis 65535 in einem 
Schritt in zwei aufeinanderfolgenden Spei- 
cherstellen zu bearbeiten. 

EVAL Wertet im Gegensatz zu VAL auch 
einen numerischen Ausdruck aus. 
GOTO/GOSUB Erlauben auch errechnete 
Sprünge, die aber jedes Programm sehr 
unübersichtlich machen. 

RESTORE Erlaubt mittels Parameter, den 
DATA-Zeiger auf eine ganz bestimmte 
Zeile zu setzen, als ON .. RESTORE sogar 
mit Parameterliste. 

RESUME/.NEXT Springt nach einem Feh- 
ler die angegebene oder die nächste Zeile 
an. 

SEC SEC X hält das Programm X Sekun- 
den an. 

POP NEXT Aussprung aus einer Schleife 
mit Korrektur des Stacks. 

POP CLEAR Löschen des ganzen Stacks. 
INPUTFORM verbessertes INPUT, das 
auch ‚:“ akzeptiert. Der Editor ist bei der 
Eingabe aktiv. 

DEF USR=/DEF PERFORM Dienen zum 
Einbinden von Maschinenprogrammen, in- 
dem der USR-Vektor festgelegt wird bzw. 
die Adresse eines Programmes, das dann 
mit PERFORM aufgerufen werden kann. 
Eine Sammlung solcher Programme 
(SOFTMODULE) ist in Vorbereitung. 
INSTR Instring-Routine, um einen String 
in einem anderen zu suchen. 

SWAP Tauscht zwei Variablen gleichen 
Typs gegeneinander aus. 
STRING$/SPACE Gibt ein Zeichen sooft 
aus, wie es dem Parameter entspricht 
bzw. bis der angegebene Raum gefüllt ist. 
PRINT USING/USING$ Formatierte Text- 
und Zahlenausgabe. 

VARPTR Ermittelt die Adresse einer Va- 
riablen im Speicher. 

PRINT AT Positioniert den Cursor auf ei- 
ner der 960 möglichen Bildschirmpositio- 
nen (nur 40 Z/Z). 

HARDCOPY Gibt den Bildschirm auf den 
Drucker aus. 

MUSIC Erzeugt Töne von angegebener 
Dauer und Tonhöhe. 


Wie arbeitet Exbasic 


Im Prinzip arbeitet Exbasic Level II mit der 
sogenannten CHRGET-Manipulation. Kurz 
gesagt, es wird dabei jede Eingabe erst 
einmal daraufhin überprüft, ob sie ein Ex- 
basic-Wort enthält. Wenn ja, arbeiten die 
Exbasic-Routinen, andernfalls wird das 
Kommando an Applesoft weitergegeben. 
Dieser Umweg bedingt, daß auch reine 
Applesoftprogramme langsamer laufen 
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(bis 10%), wenn Exbasic aktiv ist. Ap- 
plesoft speichert seine Befehlsworte platz- 
sparend in einem Byte (= Token) ab; nicht 
so Exbasic. Hier steht das volle Wort im 
Speicher und frißt den durch die Mächtig- 
keit der Befehle gewonnenen Raum wie- 
der auf. Ein Exbasic-Programm ist weder 
compilierbar noch läuft es auf einem Rech- 
ner ohne die Erweiterungskarte. Auch un- 
ter ProDOS gelang es mir nicht, Exbasic 
zum Leben zu erwecken, da es versucht, 
einige dort nicht mehr vorhandene Spei- 
cherstellen zu lesen. INTEGER-BASIC 
dürfen Sie mit INT nicht aufrufen, da sich 
das System dann „aufhängt“. Auch wer 
gewohnt ist, mit FP den Speicher zu lös- 
chen, muß sich umstellen, da ebenfalls ein 
Systemabsturz erfolgt, aus dem Sie selbst 
RESET nicht befreit. Entsprechende Hin- 
weise fehlen leider im Handbuch. 


Gesamteindruck 


Mein Gesamturteil bleibt zwiespältig: Einer 
Reihe von wirklich sinnvollen neuen Be- 
fehlen und einem recht guten Editor ste- 
hen die „verbaute“ Platine und ein un- 
übersichtliches Handbuchgespann gegen- 
über. Wenn der Hersteller sich zu einer 
Neuauflage von Karte und Anleitung 
durchringt, kann ich Ihnen Exbasic Level Il 
empfehlen, im jetzigen Zustand leider nur 
sehr eingeschränkt. 


Lassen wir doch noch einmal Tester Drip- 
ke zu Wort kommen: „Fazit: Mit Exbasic 
erhält man eine solide, technisch ausge- 
reifte Basic-Erweiterung, die ihre 392 Mark 
wert ist.“ 


Bezugsquelle: Exbasic Level Il, Versionen 
für Apple Il Plus, Ile (lIc in Vorbereitung) 
und Basis 108, Preis DM 392,- inkl. Mwst., 
Hersteller: Unternehmensberatung An- 
dreas Dripke, Wiesbaden, Vertrieb: IN- 
TERFACE AGE Verlag GmbH, Josefs- 
burgsir. 6, 8000 München 80 


DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler 
geschriebenes, ungewöhnlich schnel- 
les, unkompliziertes und zugleich 

„harrensicheres“” Adreß-, Datei- und 

Schemabriefprogramm. 

Der DB-Meister dient zum Anlegen, 

Pflegen, Sortieren, Selektieren und 

Ausdrucken von Dateien aller Art. Als 

Apple-Benutzer wissen Sie, wie lang- 

sam viele Programme dieser Art sind. 

Nicht so der DB-Meister! 

Drei Beispiele: 

— Jeder beliebige von 560-999 Re- 
cords wird nach Indexfeldern in 0,2 
Sekunden gefunden. 

Eine komplette Datendiskette mit 
z.B. 600 Records läßt sich in 1 
Minute nach 3 Feldern sortieren 
und untersortieren. Dabei ist die 
Zeit für Diskettenzugriff bereits mit- 
gerechnet. 

Das Einlesen eines 50 Sektoren 
langen Programm-Moduls dauert 
nur 3,5 Sekunden. 


Technische Daten des DB-Meisters 
Recordlänge bis zu 230 Zeichen 


560 bis 1000 Records pro Daten- 
diskette 


Maximal 25 Felder pro Record 


A Datentypen (String, Integer, Dezi- 
malzahl, Real) 


Suche nach 3 Indexfeldern — je 4 
Zeichen lang — mit Wildcard-Funk- 
tion 

Sortieren und Filtern (kumuliertes 
Selektieren) geschieht nach den 
Index-Feldern 


Ausdruck der Dateien als Etiketten, 
Listen und Schemabriefe (mit Fel- 
der- und Tastatureinschüben an be- 
liebigen Stellen des Formbriefes) 
normal kopierbare Programmaisket- 
te, unterteilt in Hauptprogramme 
und diverse Hilfsprogramme 
einsatzfähig auf Apple lle oder Ilc. 
(Achtung: Brief-Modul läuft nicht mit 
Videx-Karte!) 


— 256K RAM-Disks verwendbar 
Gesamtpreis 290,- (2 Disketten + 


gedrucktes Manual) 
U. Stiehl 


c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69 - 6900 Heidelberg 





CE-50 
ıTypenrad mit 
Apple Il/lie 


Interface. 


Für Ausgabe und 
Eingabe! 


ı EDV-Programme 
f 
1 


ür Apple-Computer 


. Finanzbuchhaltung 


(einschließlich Kunden und 
Lieferanten, offener Posten, Um- 
satzsteuervoranmeldung usw.) 


. Baufinanzierung 


(alle geltenden Gesetze auf dem 
neuesten Stand und im Handbuch 
ausführlich erläutert) 


. Adressen- und Textverwaltung 


(Erstellung von Serienbriefen mit 
individueller Anrede, Auswahl nach 
verschiedenen Kriterien usw.) 


Zspple 
yall 


Die TempoHexe ("SpeeDemon”) macht den App 


[= 


II, II+ und lle so schnell wie die populären 16bit 
Rechner. Die TempoHexe beschleunigt alle Pro- 
gramme bis zu 31/2 mal - absolut ohne jede Soft- 
ware-Änderung! Einfach einstecken, einschalten 


le} 


Mehr Informationen 
und Fändleranfiragen bel: 


R. Alverdes 
Schwarzwaldstr. 8a 
7602 Oberkirch 


DM 1298,- wer 


_ Ausführliche Handbücher 
Information, 

Lizenz- 

erteilung, 

Schulung: 


Tel.: (0 7802) 3707 
Telex: 752637 sfe d 


Katalog gegen DM 1.- 
in Briefmarken. 


Wir haben die neuste 
software und Peri- 
pherie für den Apple 
II, I+,lle und Mac, 


CPS-DATENSERVICE GMBH 
Frankfurter Str.'126, 6050 Offenbach || 


QUALITÄT AUS ERSTER HAND. Telefon 069-88 05 90 


Für DOS, Apple-Pascal, 

| CP/M und Textpro- 
gramme dieser Betriebs- 

| systeme. | 
Für alle CE-u. EM-Typen | 
lieferbar. 


interkom 


electronic 

Kock & Mreches GmbH 
3004 Isernhagen 4 
Tel. 05139-87393 





High-Res Taschenrechner in Assembler für Apple Il/lle/lic mit Apple Maus. 
20-stellige Rechner-Anzeige, Vorkasse-Scheck 35,- DM. 


Kurt Nolte - Feldstraße 26 - 6102 Pfungstadt 


gezmsa NICROMINT 
| VOTRFRERFET 











Erscheinungs- und Anzeigen- 
schlußtermine für peeker 












LASAR 16 
— IBM Comp. 64 K, Contr. 
TEAC FD 55 B 
Ausgabe Erscheinungs- Anzeigen- Netzteil 15 A 3.990; 
termin schluß LASAR ZE 
AR 6so2+zeoa 1 ‚432; 
= Se Br Außerdem volles Rückgaberecht innerhalb 
22 4.85 >. 3.85 14 Tagen ohne Begründung. | 
Apple | IBM 
20. 5.85 19. 4.85 © Mehrzweckgehäuse It. Abb. 209,— 209,—- 
® Schaltnetzteile Apple5A/IBM15A 115,-| 350,— 
24. 6. | 24. 5.85 ® Profitastatur dtsch. MAK Il 365,—| 365,— 


® Interface ab 100,-400,80 
® Drucker Epson komp. 1095,-11095,— 
Prompte Belieferung von 1000 m? Lagerfläche. 
Kostenlose Tiefstpreishändlerliste noch heute 
schriftlich anfordern — großes Angebot an 
IBM-Comp. 
Generalimporteur MICROMINT Computer GmbH 
Hochdahler Straße 151, 4006 Erkrath 2 


= 021023502 
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Hinweise für Autoren 


Wir suchen laufend Beiträge: Erfahrungsberich- 
te über kommerzielle Hardware- und Software- 
Produkte, Tips und Tricks für Anwender und 
Programmierer, gut dokumentierte Programme 
für Anfänger und Fortgeschrittene, hardware- 
technische Beiträge usw. Wir zahlen DM 200,- 
pro Druckseite, gleichviel ob Text oder Pro- 
gramm, wobei ein Beitrag mehrere Druckseiten 
oder gar mehrere Aufsatzfolgen umfassen 
kann. Es lohnt sich also, für uns zu schreiben. 
Alle Textbeiträge einschließlich der Programmli- 
stings werden von einem Apple Ile direkt in die 
Lichtsatzanlage unserer Druckerei übertragen. 
Im einzeinen sind deshalb folgende Richtlinien 
zu beachten: 


Beiträge müssen sowohl als Papierausdruck 
wie auch als Diskette eingereicht werden. Zur 
Zeit können ausschließlich die klassischen 51/4 
Zoll Disketten für Apple Il/lle/l\c angenommen 
werden. Berücksichtigt werden grundsätzlich 
nur Originalaufsätze und Originalprogramme. 
Es ist jedoch urheberrechtlich zulässig, aus 
Werken anderer Urheber zu zitieren. So können 
Sie z.B. Teile aus einem fremden Programm in 
Ihr eigenes übernehmen. In diesem Fall muß 
jedoch an geeigneter Stelle ein Zitathinweis er- 
folgen, etwa in der Form „Zeilen X-Y enthalten 
den Teil Soundso aus dem Programm ABC des 
Autors X, erschienen bei Firma Y, Ort und 
Jahr“. 

Wie im Verlagswesen üblich, übertragen Sie 
uns mit den eingereichten Aufsätzen und/oder 
Programmen das Recht der Vervielfältigung und 
Verbreitung in jeder Form. Speziell in bezug auf 
die Programme besagt dies, daß sie von uns 
nicht nur in Druckform, sondern auch in Disket- 
tenform vertrieben werden, und zwar als Pee- 
ker-Sammeldisketten, die in unregelmäßiger 
Folge erscheinen und eine Auswahl der größe- 
ren Programme als Quell- und Objekt-Code 
enthalten. Versehen Sie Ihre Programme nicht 
mit dem amerikanischen Copyright-Vermerk, 
sondern schreiben Sie statt dessen nur „Von 
Name, Ort und Jahr“. 


1. Textbeiträge 


a) Die Aufsatztexte sollten im Idealfall mit einem 
DOS-3.3-Textprogramm erstellt werden, das 
normale ASCII-Textfiles erzeugt, z.B. Applewri- 
ter Il/lle usw. Wordstar-Dateien im CP/M-For- 
mat sind ebenfalls möglich, doch müssen in 
diesem Fall die Texte endlos (ohne Silbentren- 
nung) erfaßt werden. 

b) Die Texte dürfen keinerlei Steuerzeichen für 
Matrixdrucker usw. enthalten. Überschriften 
dürfen nicht unterstrichen werden. Vielmehr 
brauchen lediglich im ausgedruckten Manu- 
skript die Überschriften sowie darüber hinaus 
im Text selbst Hervorhebungen mit einem Farb- 
stift o.ä. markiert zu werden. Die entsprechende 
Kodierung für die Satzanlage wird dann von uns 
übernommen. 
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c) Der Text muß grundsätzlich endlos erfaßt 
werden, d.h. ein Return darf nur am Absatzende 
und niemals am Zeilenende stehen, da der 
Satzrechner sonst keinen automatischen Um- 
bruch mehr vornehmen kann. Vermeiden Sie 
darüber hinaus Einzüge zu Beginn eines Absat- 
zes. Auch dies besorgt nämlich die Satzanlage 
automatisch, 

d) Ausgangspunkt unserer Kodierung Ist der 
deutsche ASCII-Zeichensatz, also mit Umlau- 
ten, B usw. anstelle von eckigen und geschweif- 
ten Klammern. Wenn Sie — z.B. beim alten 
Apple II — keine Umlaute usw. eingeben kön- 
nen, rufen Sie uns an. Bei Texten, die sowohl 
die deutschen als auch die amerikanischen 
ASCII-Sonderzeichen enthalten sollen, z.B. bei 
Pascal-Aufsätzen, müssen die letzteren kodiert 
werden. Kodierung bedeutet, daß eine Buchsta- 
benkombination, z.B. „Sp“ für griechisches 
durch unser Transmitter-Programm in den ent- 
sprechenden Kode der Satzanlage konveriiert 
wird. 

e) Vermeiden Sie unnötige Einrückungen und 
Kurztabellen. Ferner mischen Sie bitte nicht 
Aufsatztexte mit Programmtexten, da letztere 
gesondert in die Satzanlage übertragen werden. 
Größere Tabellen, die von uns konventionell 
gesetzt werden, sind auf gesonderten Textfiles 
zu speichern. Es genügt, wenn Sie senkrechte 
Trennlinien mit Kuli o.ä. andeuten. Schaubilder 
usw. sind stets willkommen. Hierzu genügen 
Bleistiftskizzen als Vorlagen für unsere Rein- 
zeichner. 

f) Achten Sie bitte auf Orthographie und Inter- 
punktion. Deutsch ist immer noch eine wichti- 
gere Sprache als Basic und Assembler! 


2. Programmlistings 


Beachten Sie, daß wir im Gegensatz zu anderen 
Computer-Zeitschriften Programmlistings nicht 
von den meist sehr häßlichen Printouts abpho- 
tographieren, sondern wie die Textbeiträge von 
Diskette in die Satzanlage übertragen, wobei 
eine besondere Schreibmaschinen-Lichtsatz- 
schrift verwendet wird. Nur bei exotischen Pro- 
grammiersprachen wählen wir z. Zt. noch den 
konventionellen Weg. 


richten Sie bitte an 


Für unsere Zeitschrift »peeker« suchen wir noch einen 


Redakteur 


Er sollte den Apple Il in- und auswendig kennen, flott 

(mindestens 30 Baud), dudenfest und stilsicher schreiben 

können und vorzugsweise über CP/M- und Pascal-Program- 
mierkenntnisse verfügen. Es erwartet ihn eine äußerst 
reizvolle Aufgabe in einem großen Verlagshaus in einer 

der schönsten Städte Deutschlands. 


Ihre Bewerbung mit den üblichen Unterlagen sowie mit 
Proben Ihrer bisherigen schriftstellerischen Tätigkeiten 


Verlagsgruppe Dr. Alfred Hüthig, Personalabteilung, 
Postfach 10 28 69, 6900 Heidelberg 1 


2.1. Basic-Programme 


a) Applesoft-Programme usw. liefern Sie bitte 
als normale Programm-Files, die von uns für die 
Satzanlage aufbereitet werden. 

b) Zeilennummern sollten stets dieselbe Siel- 
lenzahl haben, z.B. nur 3stellige Zeilennum- 
mern 100, 110, 120 o.ä., damit diese Zahlen 
von uns korrekt freigestellt werden können (RE- 
NUMBER anwenden). 

c) REM’s sollten der besseren Lesbarkeit halber 
möglichst in Groß-Klein-Buchstaben geschrie- 
ben werden. 

d) Menü-Texte, REM’s usw. müssen unbedingt 
in Deutsch sein. Englischsprachige Programme 
werden nicht angenommen. Englische Compu- 
ter-Fachausdrücke sind demgegenüber selbst- 
verständlich zulässig. 


2.2. Assembler-Programme 


a) Assembler-Programme sind als Source- 
Code und als Objekt-Code auf Diskette einzu- 
reichen. Wir bevorzugen den Assembler na- 
mens Merlin (= Big Mac) von G. Bredon. Ver- 
wendbar sind ferner Lisa 2.5, Toolkit-Assem- 
bler, ProDOS-Assembler sowie jeder andere 
Assembler, bei dem die Möglichkeit besteht, 
anstelle auf Papier auf Diskette zu assem- 
blieren. 

b) Der Source-Code sollte möglichst im 40- 
Z/Z-Modus geschrieben werden, damit die 
assemblierten Listings in der Zeitschrift 2spaltig 
gesetzt werden können. In der Kommentarspal- 
te des Source-Codes sollten nur ganz kurze 
Bemerkungen stehen. Längere Kommentare 
schreibe man über die Befehle in reine Kom- 
mentarzeilen, wobei auch diese 40 Zeichen pro 
Zeile nicht überschreiten sollten. 

c) Vermeiden Sie Makros und seltene Pseudo- 
Op-Codes, damit der Quell-Code ohne großen 
Aufwand in einen anderen Assembler konver- 
tiert werden kann. 


2.3. Sonstige Programme 


Programme in selteneren Programmierspra- 
chen sind willkommen, erfordern jedoch eine 
vorherige Absprache wegen der Konverlie- 
rungsmöglichkeit. Ggf. muß ein Schönschreib- 
drucker-Printout erstellt werden. 




















Das Buch zum Apple Il 


von Erich Esders 

1984, 210 S., geb., DM 54,- 
ISBN 3-7723-7641-X 
Franzis Verlag, München 


Für den fortgeschrittenen Apple Il 
Benutzter hat gute Literatur eher 
Seltenheitswert, besonders wenn 
sie auch noch in Deutsch ge- 
schrieben ist. Esders hat hier die 
Ergebnisse vieler Stunden am 
Rechner zu Papier gebracht. Ap- 
plesoftkenntnisse und zumindest 
praktische Grundfertigkeiten in 
6502-Assembler sollte der Leser 
schon mitbringen, um mit den vie- 
len Einblicken in das Innenleben 
des Apple etwas anfangen zu kön- 
nen. Einer kurzen Einführung in 
den Prozessor und in den Spei- 
cheraufbau folgt als Hauptteil des 
Buches die Darstellung des Basic- 
Interpreters, der zu diesem Zweck 
teilweise disassembliert und kom- 
mentiert wurde. Alle wichtigen Ein- 
sprungstellen von Basic-Befehlen, 
Floating-Point-Routinen, String- 
operationen bis hin zur hochauflö- 
senden Grafik sind benannt. In 
übersichtlicher Tabellenform wur- 
den die Einsprungbedingungen 
(was muß wo stehen), die benutz- 
ten Register und Speicher sowie 
die Ausgabe dokumentiert, Ein Ap- 
plikationsteil zeigt die Anwendung 
von Interpreter- und Monitorrouti- 
nen in eigenen Maschinenpro- 
grammen mit jeweils einem ausge- 
führten Beispiel für jede Kategorie. 
Der Apple-Monitor kommt nur un- 
ter „ferner liefen“ vor, dagegen 
aber auf 20 Seiten ein für die mei- 
sten Apple-Benutzer sicherlich 
hutzloser Interpretervergleich Ap- 
ple versus Commodore 64. 


Im Untertitel verweist das Buch auf 
den Ile, geht jedoch dann an keiner 
Stelle auf dessen Besonderheiten 
ein. Alle beschriebenen „Soft- 
switches“ z.B. gelten nur für den 
IIPlus. Der Ile hat bedeutend mehr 
davon und unterscheidet auch zwi- 
schen Lese- und Schreibbefehlen 
im Bereich von $C000 an aufwärts. 
Die 80-Zeichenkarte des lle er- 
setzt eine Reihe von Monitorrouti- 
nen, so daß besonders Ein- und 
Ausgabeoperationen mit 80 Z/Z 
anders verlaufen als beschrieben. 
Beide Rechner verfügen aber über 
den gleichen Interpreter. Bleibt ei- 
gentlich nur noch zu sagen, daß 
das Buch sauber und fehlerfrei ge- 
setzt ist, die Matrixdrucker-Listings 
gut lesbar sind und daß alles in 
einem festen Einband steckt, es 





rundum also eine (fast) runde Sa- 
che ist. 
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Programmierung des 
6502 


von Rodnay Zaks 

2. Aufl. 1982, 368 S., kart, DM 
44,- 

ISBN 3-88745-011-6 
SYBEX-Verlag, Düsseldorf 


Dieses Buch ist als Einführung in 
die Assemblerprogrammierung 
gedacht. Behutsam und verständ- 
lich führt R. Zaks zuerst in die ver- 
schiedenen Zahlensysteme und 
den internen Aufbau des Prozes- 
sors ein, bevor die einzelnen Be- 
fehle des 6502, gut mit Grafiken 
dokumentiert, auf rund 80 Seiten 
erläutert werden. Ihr Gebrauch 
wird an vielen Beispielen geübt, 
die alle nach einem klaren Schema 
aufgebaut und z.T. mit einem Fluß- 
diagramm versehen sind. Der 
Schwierigkeitsgrad steigert sich 
langsam und paßt sich den wach- 
senden Kenntnissen des Lesers 
an. Binäre Datenbäume werden 
ebenso abgehandelt wie Hashing, 
Bubble-Sort und Mischen. In ei- 
nem letzten Teil werden Compu- 
tersysteme mit 6502 Prozessor 
und Grundzüge von Assemblern 
vorgestellt. 

R. Zaks wendet sich nicht an einen 
speziellen Rechner. Die Program- 
me funktionieren auch auf einem 
Apple. Für den reinen Apple-Pro- 
grammierer ist das Buch aber ge- 
rade deshalb keine erschöpfende 
Einführung, da alle Besonderhei- 
ten der Apple-Architektur nicht be- 
rücksichtigt wurden. Das betrifft 
insbesondere die Ein- und Ausga- 








beroutinen. Für ein vollständiges 
Programm ist es aber erforderlich, 
direkt formatiert auf den Bildschirm 
schreiben sowie Disketten lesen 
und schreiben zu können. Das al- 
les wird nicht behandelt, von den 
vielen Besonderheiten der Apple- 
Grafik ganz zu schweigen. Über 
kurz oder lang wird sich der As- 
sembler-Neuling also noch ein 
weiteres Buch zulegen müssen, 
das direkt für den Apple geschrie- 
ben wurde. Dabei werden ihm die 
Grundkenntnisse aber von Nutzen 
sein, die er in diesem Buch erhal- 
ten hat. 


Programmierung des 


6502 Anwendungen 


von Rodnay Zaks 

2. Aufl. 1983, 288 S., kart, DM 
38,- 

ISBN 3-88745-014-0 
SYBEX-Verlag, Düsseldorf 


Laut Werbung soll dieses Buch 
umfassend die Ein- und Ausgabe 
Ihres 6502 beschreiben. In dieser 
Hinsicht werden Ihre Erwartungen 
nur dann nicht enttäuscht, wenn 
Sie dieses sehr wörtlich nehmen. 
Bildschirmausgabe, Diskettenver- 
waltung oder Grafik kommen in 
diesem Buch nicht vor. Ausführlich 
wird dagegen die Steuerung einer 
Zusatzkarte mit 6522 Prozessor als 
Ein- und Ausgabeeinheit behan- 
delt, Die Bauanleitung dazu befin- 
det sich im Buch. Daneben werden 
6520, 6530 und 6532 vorgestellt. 
Mit dem Erweiterungsbaustein ist 
es möglich, kleine Programme und 
Anwendungen wie Relais, Morse- 
programm, Sirenenton, Impuls- 
messung, Verkehrsampel, Alarm- 
anlage oder eine einfache A/D- 


NEUE DÜCHER A 


Wandlung (Thermometer) zu üben. 
Das Beispiel des automatischen 
Telefonwählers kann in Deutsch- 
land nicht funktionieren, da die 
Deutsche Bundespost ein ganz 
anderes Wählverfahren benutzt. 
Da ist der Hinweis des Überset- 
zers, das beschriebene Programm 
lasse sich „derzeit“ noch nicht 
einsetzen, ganz schön geschmei- 
chelt. 

Das Buch ist didaktisch gut aufge- 
baut und sauber hergestellt, es 
enthält aber auch eine Menge 
„Luft“, So sind alle größeren Li- 
stings zweimal abgedruckt: einmal 
im laufenden Text und ein zweites 
Mal im Anhang. Auf 15 Seiten wer- 
den antiquierte Systeme wie KIM- 
1, SYM-1, AIM65 oder PET vorge- 
stellt, und weitere 19 Seiten nimmt 
die Beschreibung und das Listing 
für einen Minimal-Assembler ein, 
geschrieben in HP2000F TSS Ba- 
Sic. 

Wer sich für die speziellen Anwen- 
dungen interessiert oder die Pro- 
grammierung von I/O-Bausteinen 
erlernen möchte, für den lohnt sich 
die Anschaffung dennoch. 





Apple II ROM Listing 


von Matthias Buck 
1984, 116 S., kart., DM 59, - 
Röckrath Microcomputer 


Apple selber hat nie den Quellcode 
zum Applesoft-Interpreter veröf- 
fentlicht, so daß unabhängige Au- 
toren sich an seine Entschlüsse- 
lung gemacht haben. Begonnen 
nat alles 1980 mit J. Crossley, es 
folgten komplette Versionen von 
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M.A. Carpick, Bob Sander-Ceder- 
Iof, Randy Hyde und Glen Bredon. 
M. Buck legt jetzt die erste deut- 
sche Fassung vor, d.h. mit 
deutschsprachigen Kommentaren. 
Von $D000 bis $F7FF ist alles do- 
kumentiert. Die Anmerkungen sind 
zahlreicher als z.B. bei Bredon, 
bringen jedoch keine Tatsachen 
ans Licht, die nicht schon in den 
englischen Versionen erwähnt wä- 
ren. Aufgeführt sind jeweils die 
Adresse, Assembler-Quellcode 
und Kommentar, der Objectcode 
fehlt dagegen bei Buck. Über- 
sichtstabellen und Kurzeinführun- 
gen In wichtige Interpreterroutinen 
runden den Inhalt ab. 

Das ganze Buch ist auf einem Ma- 
trixdrucker erstellt und im Copy- 
Schnelldruck vervielfältigt, worun- 
ter die Lesbarkeit und Übersicht- 
lichkeit sehr leidet. Es macht ins- 
gesamt einen „billigen“ Eindruck, 
der nicht zu einem Preis von DM 
59,- paßt. Der Inhalt ist eigentlich 
solide genug, um in einer besse- 
ren äußeren Ausstattung präsen- 
tiert zu werden, Wer das ROM- 
Listing noch nicht in Englisch hat, 
für den ist Bucks Buch eine Be- 
reicherung, wenn auch eine teure. 





RO) 
Listing 


für Applesoft-BASIC- 
Interpreter 


ererers et 


von Molthlar Duck 








Fortgeschrittene 6502 
Programmierung 


von Rodnay Zaks 

1984, 288 S., kart., DM 42,- 
ISBN 3-88745-047-7 
SYBEX-Verlag, Düsseldorf 


Trüge dieses Buch den Titel „6502 
Anwendungen Teil 2“, so würden 
meiner Meinung nach Umschlag 
und Inhalt besser zusammenpas- 
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sen. Auf dem Umschlag heißt es 
vielversprechend: „Bald können 
Sie den geeigneten Algorithmus 
auswählen und ihn schrittweise 
definieren, eine leistungsfähige 
Datenstruktur entwickeln und die- 
se bewerten, Echtzeitlösungen 
realisieren ...". Gearbeitet wird 
dann aber praktisch nur mit einem 
„Hobbyboard“ als Hardware, das 
vom Leser selbst gebaut werden 
muß und dessen Anschluß an das 
kleine Entwicklungssystem SYM-1 
beschrieben ist. (Appleanschluß 
im Anhang). 15 LED’s werden dar- 
auf angesteuert nebst einer Hexa- 
dezimaltastatur (Sedezimal für die 
Puristen) und einem Lautsprecher, 
mit dem Musik (Jingle Bells) ge- 
macht wird. Pseudozufallszahlen 
werden erzeugt, die dann zu „vi- 
suellen Mustern“ aus blinkenden 
LED’s führen. Bei einer Realzeit- 
Simulation umkreisen Lichtsignale 
ein Quadrat aus LED’s. Sie müs- 
sen Licht- und Tonsignale behalten 
und nachvollziehen. Schließlich 
wird als „Künstliche Intelligenz“ 
(S. 207) ein simples TIC-TAC- 
TOE-Spiel vorgestellt, bei dem ge- 
winnt, wer als erster eine waage- 
rechte, senkrechte oder diagonale 
Dreierreihe in einem Quadrat mit 3 
3 Feldern zustande bringt. 
Sicherlich werden einige interes- 
sante Programmiertechniken be- 
handelt, deren Kenntnis allgemein 
nützlich ist, die praktische Umset- 
zung erfolgt jedoch an Trivialitäten. 
Mit einem Home-Computer oder 
einem Apple Ile kann man aber bei 
weitem mehr machen, als hier als 
Fortschritt verkauft wird. Rodnay 
Zaks istin der Lage, auch schwieri- 
ge Sachverhalte nachvollziehbar 
und einprägsam zu erklären. Er 
sollte sein Talent nicht an allzu 
simplen Spielchen vergeuden. 


FORTGESCHRITTENE 


PROGRAMMIERUNG 


Macintosh Benutzerhand- 
buch 


von Carol Kaehler 

1983, 174 S., zahlr. Abb,, Spiral- 
bindung 

Ins Deutsche übersetzt von Apple 
Computer, München 

(Wird beim Kauf des Macintosh 
mitgeliefert) 


Dieses Handbuch erläutert in 4 Ka- 
piteln die Benutzung des Macin- 
tosh: 

1. Macintosh kennenlernen 

2. Mehr über den Macintosh er- 
fahren 

3. Mit dem Finder arbeiten 

4, Nachschlageteil 

Die Typografie und die farbigen 
Abbildungen sind — wie bei allen 
Apple-Handbüchern — ganz aus- 
gezeichnet, während der Text 
selbst teilweise völlig unverständ- 
lich ist, weil nunmehr die „Ikonen“ 
(= Verbildlichungen abstrakter Be- 
griffe) durch Hypostasen (= Ver- 
dinglichungen abstrakter Begriffe) 
ersetzt werden, was zu grotesken 
semantischen Konstruktionen 
führt, wie man sie sonst nur vom 
magischen Denken der Urmen- 
schen her kennt. Einige Beispiele 
mit Seitenangaben: 

S, 21: „Wählen Sie eine Informa- 
tion aus, dann suchen Sie eine 
Handlung für sie aus“: Können In- 
formationen handeln? Vgl. hierzu 
S,60: „Setzen Sie den Zeiger dort- 
hin, wo die Handlung stattfinden 


soll“ = Zeigen Sie auf den Hand- 
lungsort (?). 
S. 36: „Die Abbilder wurden da- 


durch ausgewählt, indem Sie in 
diese geklickt haben": Klein-Mecki 
in der Vernissage. Fragt der Aus- 
steller: „Schon ein Bild ausge- 
wählt?" — „Nee, hab’ noch in keins 
geklickt" — „Dacht’ ich mir”. 

S. 40: „Verschieben Sie das neue 
Abbild von dem Ordnerabbild, das 
Sie dupliziert haben“: Einst gab es 
einen konkreten, physisch greifba- 
ren (Leitz-)Ordner. Daraus wurde 
eine Mac-Entität namens „Ord- 
ner“. Dann kam das Abbild des 
„Ordners" und schließlich das Ab- 
bild des Abbildes des „Ordners”, 
das dann „verschoben“ wurde. 
Ontologisch gesprochen, gab es 
einst ein „Seiendes“, dann kam 
die „Seinsheit“ und schließlich die 
„seinsheitlichkeit“, 

S, 40: „Jedesmal, wenn Text aus- 
gewählt ist, wird dieser Text durch 
den Text, den Sie schreiben, er- 
setzt.“: Wieviele Texte gibt es 
hier? 


S. 41: „Dokumente und Anwen- 
derprogramme können Sie entwe- 
der auf Ihrem Schreibtisch lassen 
oder sie in Ordner oder auf Disket- 
ten unterbringen“: Denksportauf- 
gabe: Nennen Sie bei diesem Satz 
die konkreten Begriffe sowie die 
Verdinglichungen abstrakter Be- 
griffe! 

S. 43: „Sie können auch einen 
Befehl aussuchen und mit ihm auf 
eine Gruppe ausgewählter Abbil- 
der einwirken“: Was ist gemeint? 
S. 65: „Verschieben Sie über den 
Text bis zum Ende des ausgewähl- 
ten Textes": „Verschieben" ist ein 
transitives Verb, erfordert also ein 
Akkusativobjek. Wenn man an 
diesem unglücklich gewählten Be- 
griff festhalten will, so muß es hei- 
Ben: etwas über etwas schieben, 
etwas an etwas entlang schieben, 
etwas über etwas hinweg schieben 
usw. und nicht (S. 160) „Zum Aus- 
wählen einer Information wird der 
Zeiger über sie verschoben” und 
auch nicht (S. 163) „Wenn durch 
das Menü verschoben wird, wäh- 
rend eine Menüfunktion hervorge- 
hoben ist, wird diese ausgesucht". 
Klein-Mecki im Restaurant. Fragt 


der Ober: „Schon ein Menü ge- 
wählt?" — „Nee, hab’ noch durch 
keins verschoben“ — „Dacht’ ich 
Mit; 


S. 95: „Sie können durch gleich- 
zeitiiges und dem Punkt den 
Druckvorgang abbrechen“: Wirre 
Mecki-Sprache? Wer klärt mich 
auf? 

Sprechen Sie „Mecki"? Wenn ja, 
Frage: Wie nennt man „die Infor- 
mation, die durch den nächsten 
Befehl beeinflußt wird" (Lösung 
auf S. 160)? 

Der Philosoph Schopenhauer 
schrieb einmal über Hegel: „Das 
Publikum war genötigt worden ein- 
zusehen, daß das Dunkle nicht im- 
mer sinnlos ist. Sogleich flüchtete 
sich das Sinnlose hinter den dunk- 
len Vortrag. Jedoch die größte 
Frechheit im Auftischen baren Un- 
sinns, im Zusammenschmieren 
sinnleerer, rasender Wortgeflech- 
te, wie man sie bislang nur in Toll- 
häusern vernommen hatte, trat 
endlich in Hegel auf.“ Es hätte 
mich interessiert, was Schopen- 
hauer über den Autor/Übersetzer 
des Macintosh-Handbuches ge- 
schrieben hätte. 

us 








„Apple Assembler" wendet sich an alle, 
die bereits Anfängerkenntnisse der 
6502-Programmierung haben und 
nunmehr ein Nachschlagewerk für 
ihren Apple II Plus /lle/lic suchen, in 
dem alle wichtigen ROM-Routinen 
sowie eine Vielzahl sonstiger Hilfspro- 
gramme in einer systematischen Form 
zusammengestellt werden, Insgesamt 
umfaßt dieses Buch über 40 Utilities, 
darunter mehrere völlig neuartige Pro- 
gramme wie Double-Lores, Double- 
Hires, Screen-Format u.a, 


Der erste Teil enthält ein Repetitorium 
der wichtigsten Befehle, Adressie- 
rungsarten und sonstigen Besonderhei- 
ten des 6502 sowie Angaben zu den 
apple-spezifischen Zahlenformaten 
(Integer- und Fließkommazahlen). 

Im zweiten Teil werden neben einer 
Kurzwiederholung der Monitor-Befehle 
alle Routinen und Adressen des Moni- 
tors zusammengestellt, die für Assem- 
blerprogrammierer von Nutzen sein 
können, Darüber hinaus findet der 
Leser Unterroutinen für Vorwärts- und 
Rückwärts-Moven, hexadezimale Addi- 
tion /Subtraktion /Multiplikation /Divi- 
sion, Binär-, Hex-und ASCII- 


und Tricks 


Mit ausführlichen 
Programmbeispielen 


Ulrich Stiehl 


A 





Umwandlung, Dumpen /Disassemblie- 
ren, Aufwärts-Scrollen, Reset u. a. 

Der dritte Teil befaßt sich mit der Spei- 
cherverwaltung der Language-Card 
und der Il e-64K-Karte und enthält Test- 
und Move-Programme zum Verschie- 
ben von Daten in die und aus der 
Language Card sowie der 64K-Karte, 
wobei besonders ausführlich auf die 
Softswitches eingegangen wird. 


Der vierte Teil ist dem Applesoft-ROM 
gewidmet und beschreibt die interne 
Struktur von Applesoft-Programmen, 
die Methoden der Parameterübergabe 
mittels CALL, USR, &, PEEK und POKE 
und listet dann eine große Anzahl nütz- 


Apple Assembler 
- Tips und Tricks - 


von U. Stiehl 


232 S., 40 Programm-Listings, 
3 Abb., kart., DM 34,— 
ISBN 3-7785-1047-9 


Begleitdiskette zum Buch DM 28,— 
ISBN 3-7785-1048-7 


licher Interpreter-Adressen. Bei den ® 5 
Utility-Programm liegt das Schwerge- fr 5 
wicht auf Fließkommamathematik ein- +" ax vr 
schließlich Print Using. NR 

a a 
Der letzte Teil behandelt den Text- und ® 
Grafikspeicher. Neben einem profes- & Se 
sionellen Maskengeneratorprogramm 4 sw CE , 


findet der Leser hier auch erstmals 
Routinen zur Double-Lores- und 
Double-Hires-Grafik des Apple Ile. 













Doppel-Parallelinterface mit RAM 
oder EPROM 





Die Firma Tombstone-Micro stellt 
zwei Versionen dieser Doppel-Pa- 
rallelschnittstelle her. Es handelt 
sich dabei um eine Steckkarte für 
Applecomputer, die ganz nach den 
Anwenderbedürfnissen aufgebaut 
werden kann. 

Die erste Version des Interface 
trägt den Namen ADD 2 und ent- 
hält einen VIA 6522 (Versatile In- 
terface-Adapter) mit 2 mal 8-Bit- 
Input/Output plus 2 Handshakelei- 
tungen. Daneben existieren ein 8- 
Bit-Schieberegister zur seriellen 
Datenübertragung und 2 Interrupt- 
Timer, die auch als Zähler verwen- 
det werden können. 

Das Interface ADD 4, die zweite 
Version, ist mit einem PIA 6520 
(periphere Interface-Adapter) be- 
stückt. Dieser enthält nur die 2 mal 
8-Bit-Input/Output plus 2 Hands- 
hakeleitungen. 

Beide Karten können mit einem 
2716 EPROM oder 6116 RAM be- 
stückt werden. Der Speicherbe- 
reich ist dann folgender: 


$0000 — $0O3FF Expansion 
Memory $C800 — $CBFF 

60400 - $O6FF nicht adressierbar 
$0700 — $07FF Slotbereich 
$Cs00 - $CsFF 

(In der provisorischen Betriebsan- 
leitung waren die obigen Angaben 
falsch, was inzwischen korrigiert 
wurde.) 


Es ist ebenfalls Platz für einen Ak- 
ku, der das RAM für mindestens 
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eine Woche mit Strom versorgt. 
Leider kann die Karte dann nicht 
aus dem Apple genommen wer- 
den, denn es besteht die Möglich- 
keit, daß die Daten zerstört 
werden. 

An beiden Schnittstellen können 
entweder Drucker, Tastaturen, 
EPROM Burner oder ähnliche Ge- 
räte angeschlossen werden. Es 
sind auch 4 Dip-Schalter vorhan- 
den, mit denen das Treiberpro- 
gramm gegen Schreibzugriffe ge- 
schützt werden kann. Die Strom- 
versorgung des Akku kann auch 
mit einem dieser Schalter unter- 
brochen werden. 

Die ADD 2 wird mit einer DOS 3.3 
Diskette geliefert. Auf ihr sind 
Testprogramme in Applesoft und 
Assembler vorhanden. Diese Pro- 
gramme fehlen bei der ADD 4, je- 
doch gibt es auf der Platine ein 
Wrap-Feld mit 229 Bohrungen für 
eigene Schaltungen. 

Zur Programmierung des VIA wird 
im Begleitmaterial, das nach unse- 
rer Meinung zu kurz gefaßt ist, auf 
das Buch „Mostech 65xx Prozes- 
sorreihe” hingewiesen. Hier soll 
nur eine grobe Übersicht über den 
PIA gegeben werden. 

Der PIA 6520 (6821) enthält zwei 
8-Bit-Ports. Port A dient gewöhn- 
lich als Eingangsport und Port B 
zur Ausgabe. Jeder Port enthält: 

— Ein Daten- oder Peripherieregi- 
ster, das entweder Eingangs- oder 
Ausgangsdaten aufbewahrt. 


— Ein Datenrichtungsregister. Die 
Bits in diesem Register bestim- 
men, ob die entsprechenden Da- 
tenregisterbits (und Anschlüsse) 
Eingänge (0) oder Ausgänge (1) 
sind. 

— Ein Steuerregister, welches die 
Statussignale aufbewahrt, die für 
den Quittierungsbetrieb erforder- 
lich sind, sowie andere Bits, die die 
Logikverbindungen innerhalb des 
PIA auswählen. 

— Zwei Steuerleitungen, die durch 
die Steuerregister konfiguriert wer- 
den. Diese Leitungen können für 
die Quittierungssignale verwendet 
werden. 

Die Bedeutung der Bits im Daten- 
richtungsregister und den Steuer- 
registern bezieht sich auf die ent- 
sprechende Hardware und ist völ- 
lig willkürlich, soweit es den Pro- 
grammierer für die Assemblerspra- 
che betrifft. 

Jeder PIA belegt vier Speicher- 
adressen: 

Basis = C080 + nO, n = Slot- 
nummer 


Basis + 0 ORA/DDRA Portregister 
A 

Basis + 1 CRA Controllregister A 
Basis + 2 ORB/DDRB Portregister 
B 

Basis + 3 CRB Controllregister B 
Die RS (Register Select = Reqgi- 
sterauswahl)-Leitungen wählen ei- 
nes der vier Register aus. Da es in 
jedem PIA sechs Register gibt 
(zwei periphere, zwei Datenrich- 
tungsregister und zwei Steuerregi- 
ster), ist ein weiteres Bit für die 
Adressierung erforderlich. Bit 2 je- 
des Steuerregisters bestimmt, ob 
sich die andere Adresse auf dieser 
Seite auf das Datenrichtungsregi- 
ster (0) oder das Peripherieregister 
(1) bezieht. Die Preise für das voll 
bestückte Modell mit Akku sind 
(Die Abbildung zeigt die Leerpla- 
tinen): 

ADD 2 mit Diskette und Beschrei- 
bung DM 180,- 

ADD 4 mit Beschreibung DM 150,;- 
Bezugsquelle: Firma Tombstone- 
Micro, Gardeschützenweg 72, 
1000 Berlin 45, Tel. 030/8331303 





Modula-2 für den Macintosh 


Modula-2, das neueste Kind des 
Pascal-Erfinders Nikolaus Wirth, ist 
nun auch für den Macintosh ver- 
fügbar. Modula-2 ist eine konse- 
quente Weiterentwicklung von 
Pascal und bietet neben den be- 
kannten Pascalfunktionen folgende 
Neuerungen: 

— Ein Modulkonzept, das es er- 
möglicht, auf bequeme Weise ein 
Programm in kleinere Einzelteile 
zu zerlegen, wobei zwischen der 
Schnittstellenbeschreibung und 
dem eigentlichen Programmteil 
unterschieden wird. Zusätzlich 
werden über Modulgrenzen Typ- 
prüfungen durchgeführt. 

— Eine systematische Syntax, die 
das Erlernen der Sprache verein- 
facht. 

— Möglichkeiten für die systemna- 
he Programmierung (Adreßrech- 


6AK-Karte für Ile 


Über die Firmen Wagner Daten- 
technik in Uhldingen und ProSoft 
in Koblenz sind preiswerte erwei- 
terre 80-Zeichenkarten für den 
Apple Ile erhältlich, die funktions- 
mäßig mit der Originalkarte von 
Apple identisch sind. Übrigens 
sind auch die deutschen Anleitun- 


nung, Prozedurvariablen usw.). 

— Dynamische Felder als Proze- 
durparameter (z.B. für Strings un- 
terschiedlicher Länge). 

Modula-2 auf dem Macintosh ent- 
hält den kompletten Sprachum- 
fang. Darüber hinaus bietet es den 
Zugriff auf sämtliche Macintosh- 
Routinen wie Bildschirmmanipula- 
tion, Maus-Kontrolle, Grafikrouti- 
nen, Speicherplatzverwaltung, 
Ausgabe von Tönen, Dateizugriffe 
USW. 

Der Übersetzer wird zusammen 
mit einem vollständigen Entwick- 
lungssystem und einem engli- 
schen Manual für DM 598,50 inkl. 
MwSt angeboten. 

Bezugsquelle: pl Gesellschaft für 
Informatik mbH, Gotthardstr. 99, 
8000 München 21, Tel. 089/ 
580609 





gen der Firmen Wagner und Pro- 
Soft identisch, d.h, gleicher Text- 
wortlaut im Innenteil bei verschie- 
denem Umschlag. 


Bezugsquelle: Wagner Datentech- 
nik, Im Öschle 21, 7772 Uhldin- 
gen-Mühlhofen 1 


4) NEUE PROdukTe 


Staub und Schmutz auf Computer 


und Tastatur? 


Computer und Peripheriegeräte 
stauben schnell zu. Gerade wäh- 
rend der Nacht und des Wochen- 
endes, wenn Ruhe im Büro 
herrscht, setzt der tagsüber aufge- 
wirbelte Staub sich auf die wertvol- 
len Bürogeräte nieder. Dabei zie- 
hen die Kunststoffgehäuse und 
insbesondere die Bildschirme 
nach dem Abschalten den Staub 


wie Magnete an. Schutzhauben 
verhindern den Staubansatz. Die 
Staubschutzhauben sind aus kräf- 
tigem und reißfestem Material ge- 
fertigt. Es liegen Schutzhauben vor 
für den Apple Il/lI+, Apple Ilc, 
Apple Ill und den Macintosh. 
Bezugsquelle: Schonenberg 
Schutzhauben, Drosselweg 20, 
4782 Erwitte, Tel. 02943/7613 





TempoHexe „SpeeDemon‘ 
65C02C-Prozessorkarte 


Die TempoHexe („SpeeDemon‘) 
macht den Apple fast so schnell 
wie die populären 16-Bit-Rechner. 
- Es ist absolut keine Software- 
Änderungen notwendig. 

— Sie kann im Apple Il,II+ und Ile 
verwendet werden, wobei die spe- 
ziellen Features vom |le unterstützt 
werden sollen. 

— Funktionsprinzip: Neuer Mikro- 
prozessor 65C02C mit 3.6 MHz 


tritt an die Stelle des 1.02 MHz 
Originalprozessors 6502. 

Der „SpeeDemon“ ist eine Kon- 
kurrenzkarte zur bislang teureren 
Accelerator lle. Ob sie dasselbe 
leistet, wird ein Testbericht in einer 
der nächsten „Peeker"-Ausgaben 
zeigen. 

Bezugsquelle: Softline Rut Alver- 
des, Schwarzwaldstraße 8 A, 7802 
Oberkirch, Tel. 07802/3707 





Lohn- und Gehaltsabrechnung 


Dieses Programmpaket bietet eine 
moderne, ausgefeilte Methode, die 
Lohn- und Gehaltsabrechnung im 
Betrieb im Dialogverkehr mit dem 
Rechner ohne besondere Vor- 
kenntnisse sowohl des Rechners 
als auch der kleinen Details der 
Gesetzgebung durchzuführen. 

Dabei kann die monatliche Äbrech- 
nung getrennt nach Arbeitern und 
Angestellten erstellt werden, wie 
dies in manchen Branchen üblich 
ist. Das Programm ist ausgelegt für 


bis zu 200 Mitarbeiter bei Einsatz 
von zwei 8-Zoll-Laufwerken. 

Im einzelnen werden folgende Da- 
ten erfaßt, die für die Brutto- und/ 
oder Nettolohnabrechnung sowie 
für die Ausdrucke und Berichte er- 
forderlich sind: Firmenstammda- 
ten, Personalstammdaten, Daten 
von bis zu 5 Hausbanken und bis 
zu 50 Personalbanken, Daten des 
Finanzamtes. 

Bezugsquelle: Orgasoft GmbH, 
Werner-von-Siemens-Straße 3, 





bis zu 70 Mitarbeiter bei Einsatz 7730 VS-Villingen, Tel. 07721/ 
von zwei 5-Zoll-Laufwerken oder 72223 

Lotus — Jazz 

„Jazz“ ist ein multifunktionales tions- und Bedienungsanleitun- 


Software-Paket mit fünf Anwen- 
dungsbereichen: Textverarbei- 
tung, Erstellen von Arbeitsblättern, 
Datenbankverwaltung, Datenaus- 
tausch und Erstellen von Grafiken. 
Die fünf Funktionen von „Jazz“ 
sind miteinander integrierbar, so 
daß der Anwender Dokumente wie 
Analysen, Budgets, Memos, Emp- 
fehlungen und Berichte leicht erar- 
beiten kann. 

Dem Paket beigefügt sind zwei 
Handbücher mit detaillierten Funk- 


gen, „Jazz“ wird in englischer Ver- 
sion ab März 1985 und in komplett 
deutscher Version ab Mitte 1985 
zum Preis von DM 1.895,- ohne 
MwSt erhältlich sein. 

„Jazz“ läuft auf dem Macintosh 
512K mit einem externen Dis- 
ketten-Laufwerk. 


Bezugsquelle: HHCC GmbH, 
Mainzer Landstraße 46, 6000 
Frankfurt am Main 1, Tel. 069/ 
720711 





Branchenprogramm Reisebüro 


Ziel dieses Programmpakets ist die 
Abwicklung der innerhalb eines 
Reisebüros anfallenden Arbeiten 
wie z. B. Kunden- und Adreßver- 
waltung, Fakturierung, Werbe- 
schreiben-Erstellung, Preislisten- 
ausdruck und Änderung, Auswer- 
tungen der Kunden- und Reise- 
daten. 

Das in Modularbauweise aufge- 
baute Programmpaket führt den 
Anwender im Bildschirmdialogver- 
fahren durch alle notwendigen Ar- 
beitsschritte. Bei der Datenerfas- 
sung schlägt das System definierte 
Eingaben vor, die zu bestätigen 
sind. Mit diesem Verfahren können 
Angebote, Anmeldebestätigungen 
und Rechnungen geschrieben 
werden. Darüber hinaus können 
mit der Kundenadresse spezifi- 
sche Daten abgespeichert werden. 


Im angegliederten Textverarbei- 
tungsprogramm werden in Verbin- 
dung mit der Adreßverwaltung Rei- 
seankündigungsbriefe, Werbe- 
schreiben, Tagespost und Preisli- 
sten geschrieben. Das Programm- 
paket umfaßt auch ein Scheck- 
schreibungsprogramm, mit dem 
die eingehenden Rechnungen 
schnell und problemlos beglichen 
werden können. Neben diesen Ta- 
gesroutinen können auch disposi- 
tive und statistische Auswertungen 
über Listenausdrucke vorgenom- 
men werden. Diese Transaktionen, 
z. B. Kundenadreßlisten, lassen 
sich durch ein Kennwort vor unbe- 
fugtem Zugriff schützen, 
Bezugsquelle: Orgasoft GmbH, 
Werner-von-Siemens-Straße 3, 
7730 VS-Villingen, Tel. 07721/ 
7,2228 





UCSD p-System für den Macintosh 


Das hannoversche Systemhaus 
FOCUS Computer bietet die Ver- 
sion IV. 13 des UCSD p-Systems in 
Deutschland ab sofort für den Mac- 
intosh an. Damit ist zum ersten Mal 
ein vollständiges Software-Ent- 
wicklungssystem verfügbar, das 
auf dem Macintosh lauffähig ist. 
Mit dem p-System sind Compiler 
für die  Programmiersprachen 
UCSD Pascal und FORTRAN-77 
sowie ein 68000-ÄAssembler liefer- 
bar. Neben p-Code kann mit einem 
Native Code Generator auch Ma- 
schinencode erzeugt werden. Das 
p-System bietet vollen Zugriff auf 
die Macintosh ROM-Routinen, so 
daß Grafik, verschiedene Schriftty- 
pen und die Maus leicht von den 
Programmiersprachen aus ange- 
sprochen werden können. 
Außerdem gibt es für das p-Sy- 
stem viele weitere Zusatzprodukte 
sowie insgesamt etwa 4500 Seiten 
an Handbüchern. 


Das p-System ist ein universelles, 
sehr komfortables Betriebssystem. 
Derzeit liegt sein Marktanteil mit 
weltweit 12% an dritter Stelle hin- 
ter MS-DOS und CP/M. Da das p- 
System prozessor- und hardware- 
unabhängig ist, ist es auf allen be- 
kannten Mikrocomputern lauffähig. 
Damit kann jetzt eine große Aus- 
wahl vorhandener Software von 
Rechnern wie Apple || oder !BM 
PC auf den Macintosh übertragen 
werden. Das p-System bietet eine 
dynamische Speicherverwaltung 
und wird daher eingesetzt, um 
sehr große Programme auf kleinen 
Rechnern zu ermöglichen. Der mit 
128K relativ bescheidene Macin- 
tosh-Arbeitsspeicher bildet so kein 
Hindernis mehr. 


Bezugsauelle: FOCUS Computer 
GmbH, Friesenstraße 14, 3000 
Hannover 1, Tel. 0511/3945461 


STATEX für Bildschirme 


Bildschirme und Kunststoffe laden 
sich statisch auf und ziehen Staub 
und Schmutz an — sie bedürfen 
daher besonderer Pflege. STATEX 
ist ein speziell entwickeltes Tuch 
für Computerbildschirme. Es rei- 
nigt nicht nur wirkungsvoll Bild- 
schirme, Gehäuse, Tastaturen 


usw., sondern schützt auch zuver- 
lässig — bei regelmäßiger Anwen- 
dung - vor Wiederaufladung durch 
einen antistatischen Wirkstoff. 


Bezugsquelle: PROSANA GmbH, 


Zeisselstr, 11 A, 6000 Frankfurt am 
Main 1, Tel. 069/590571 


In 
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für Aufsteiger 


Mit ausführlichen 


Ulrich Stiehl Programmbeispielen 


Apple ProDOS für Auf- Assemblerprogramme unter Pro- Aus dem Inhalt: | 

steiger DOS nicht mehr lauffähig und be- Ein erster Überblick - ProDOS und 
dürfen einer intensiven Überarbei- DOS 3.3 - Interne Speicherorgani- 

Band I tung. Band 1 befaßt sich überwie- sation — Externe Speicherorgani- 


von Ulrich Stiehl 

1984, 202 S., kart., DM 28,- 
ISBN 3-7785-1027-4 
Hüthig Verlag, Heidelberg 


ProDOS ist das neue „professio- 
nelle DOS“ (Professional Disk 
Operating System) für den Apple 
Ile sowie den mit einer Language 
Card ausgestatteten Apple Il Plus. 
Reine Applesoft-Programmierer, 
die bereits unter DOS 3.3 pro- 
grammiert haben, werden sich 
schnell an ProDOS gewöhnen, da 
die diesbezüglichen Unterschiede 
zwischen DOS 3.3 und ProDOS 
weniger gravierend sind. 

Sinngemäß liegt das Schwerge- 
wicht in dem ersten Band von 
„ProDOS für Aufsteiger“ auf der 
Assembler-Programmierung, da 
Assembler-Programmierer unter 
ProDOS völlig umdenken müssen, 
Insbesondere sind alle früheren 





gend mit den theoretischen 
Grundlagen von ProDOS, der in- 
ternen und externen Speicheror- 
ganisation und enthält grundiegen- 
de Beispielprogramme für Assem- 
bler-Programmierer sowie gene- 
relle Untersuchungen zum BASIC- 
‚SYSTEM. Da ProDOS über erheb- 
lich vielfältigere und leistungsfähi- 
gere, zugleich jedoch erheblich 
kompliziertere Dateistrukturen ver- 
fügt, sind theoretische Kenntnisse 
von ProDOS unabdingbar, wenn 
man die Features von ProDOS voll 
ausschöpfen will. 





sation — MLI (Machine Language 
Interface) — ProDOS für Applesoft- 
Programmierer 





Computerunterstütztes Lernen 


Die INTUS-Lernprogramme wer- 
den hauptsächlich schulbegleitend 
für die Nachhilfe und Übung einge- 
setzt. Sie haben sich vielfach be- 
währt und sind bei Lehrern und 
Schülern beliebt. 

Lernen mit computerunterstützten 
Lernprogrammen ist für viele 
Schüler auf die Dauer eine neue, 
ergänzende Lernform. Gute Lern- 
programme sind dialogfähige, ge- 
duldige „Privatlehrer“, Sie passen 
sich dem Verständnis des Schü- 
lers laufend an, so daß das Lernen 
nie langweilig wird. 

Alle INTUS-Lernprogramme sind 
selbststartend und menügesteuert. 





Es sind keine Computerkenntnisse 
notwendig. Es liegen Programme 
für folgende Gebiete vor: 

— Rechnen, Mathematik 

— Physik 

— Chemie 

— Biologie 

— Deutsche Sprache 

— Fremdsprachen 

— Geographie 

— Vorschule 

— Informatik 

— Kaufmännische Fächer 
-u.a.m. 

Bezugsquelle: INTUS Software, 
Kaiserstraße 21, 7890 Waldshut- 
Tiengen, Tel. 0 77 51/7920 


Mailmerger für AppleWorks 


AppleWorks umfaßt bekanntlich 
Textbearbeitung, Datenbank und 
Tabellenkalkulation auf einer Dis- 
kette. Teile aus diesen drei An- 
wenderprogrammen können mit- 
einander verknüpft werden. Es 
können jedoch keine Daten aus ei- 
nem der Anwenderprogramme in 
einem anderen verwendet werden, 
So können beispielsweise Adres- 
sen aus der Datenbank nicht mit 
Briefen aus der Textverarbeitung 
gemischt werden, um Mitteilungen 
zu individualisieren. 

Dafür gibt es den „Mailmerger für 
AppleWorks“. Es ist ein leicht zu 





Verschiedenes 


Apple User Club Austria 


Der Club umfaßt rund 300 Mitglie- 
der in Österreich. Geboten wird ein 
eigenes Mitteilungsblatt, gemein- 
same Einkaufsaktionen, ein Mit- 
gliederverzeichnis, ein Disketten- 
abonnement, eine telefonische 
Sprechstunde, Clubireffen an 
mehreren Orten in Österreich und 
vieles anderes. Aktuelle Mittellun- 
gen werden über die Wiener Tele- 
fonnummer 0043 - 22 - 
478216 verlautbart. Interessen- 
ten mögen sich mit dem Club, 
Postfach 51, A-1181 Wien, in Ver- 
bindung setzen. 


verwendendes Programm, das den 
Einsatz von AppleWorks erheblich 
erweitert. Die Handhabung erfolgt 
wie bei Appleworks. Zusätzlich 
können Global- oder Einzelinfor- 
mationen vor dem Ausdrucken 


eingegeben sowie Zahlenkombi- ° 


nationen zusammengezählt wer- 
den. Mailmerger wird mit einem 
ausführlichen Handbuch geliefert, 
das allerdings kaum benötigt wird. 
Der Preis ist DM 257,-. 


Bezugsquelle: INTUS Software, 
Kaiserstraße 21, 7890 Waldshut- 
Tiengen, Tel. 0 77 51/79 20 


Apple-Diebe am Werk 


In der Nacht zum 30. 10. 1984 
wurden im Goethe-Gymnasium in 
Bensheim eine Reihe von Apple- 
Computern entwendet, die von der 
Fa. Schöpp aus Bensheim stamm- 
ten, welche dann in der Nacht vom 
12. 11. 1934 ebenfalls heimge- 
sucht wurde. Glücklicherweise 
konnten jedoch die Täter, die bei 
der Fa. Schöpp eingebrochen hat- 
ten, bereits am 6. 12. 1984 gefaßt 
werden, während die anderen 
noch auf freiem Fuß sind. 


4) NEUE PRodukTe 











Peeker-Sammeldisketten 


Sammeldiskette Heft 1-2, 










Einzelbezug DM 28. — 








Fortsetzungsbezug DM 20,- 1985 
(Mindestbezug 6 Disketten) DOS-Format 
| (* = nur auf Diskette, nicht im 
I | Peeker gelistet!) T.RAMDISKLC 
| RAMDISKLC 







Sammeldiskette Heft 1 + 2, 
1984 
DOS-Format 


T.DISASSEMBLER.65C02 
DISASSEMBLER.65C02 


T.IBS.RAMDISKDRIVER 
IBS.RAMDISKDRIVER 
T.AP20.RAMDISKTEST 
AP20.RAMDISKTEST 











TACCEL WAIT T.QUICKCOPY 
ACCEL WAIT QUICKCOPY 

Ä QUICKCOPY.PUFFER 
en PRODOS.COPYA 
ACCEL.BOOT | 






EEROBOS.COPTOBJ? 
PRODOS.COPYOBJ 
PRODOS.PATCH 






ACCEL.LCG.KOPIERER 
TLACCELLE.KOPIE 
ACCEL.EG.KOPIE 
T.ACCEL.ROM.KOPIE1 
ACCEL.ROM.KOPIE1 







EARPLEESOFTEFRE 










T.ACCEL.ROM.KOPIE? A FT.FRE 
ACCEL.ROM.KOPIE? a 
TURTLE.GRAFIK.MIT.REMS  FRE.TEST 
TURTLE.GRAFIK.OHNE.- T.RAM.FRE* 







REMS RAM.FRE 


DOUBLE.LORES.SOFT- 














T.SCHIRMDISK 
SWITCH.DEMO 
nenn SCHIRMDISK.LISA.SOURCE 
SCHIRMDISK 
SOFT.DEMO al 
AMPER.DOUBLE.LORES.- Ieneänsee 
DEMO VIDEXT 
T.AMPER.DOUBLE.LORES 
AMPER.DOUBLE.LORES ge 





1.POUBER FORES 
DOUBLE.LORES 






GETDOS.PASCAL.SOURGE 
COPYDUPDIR.PASCAL.- 








HIRES SOURCE 
T.PRINTHIRES | 
PRINTHIRES Sammeldiskette, Heft 1-2, | 



















1985 
DHGR.APSOFT.DEMO CP/M-Format 
AMPER.DOUBLE.HIRES.BAS 
AMPER.DOUBLE.HIRES STEUER.84 
T.AMPER.DOUBLE.HIRES PASS.BAS 
DHGR.LINEPLOTTER MENUE.BAS 
HELP.BAS* 
INSTRING. TEST A.BAS 
INSTRING.OBJ B.BAS 
T.INSTRING.OBJ C.BAS 
INSTRING.LISA.SOURCE D.BAS 
E.BAS 
LOESCHEN.EINES.ARRAYS F.BAS 
ULTRATERM.ENGLISCH* G.BAS 
ULTRATERM.DEUTSCH* H.BAS 
|.BAS 
PRIMZAHLEN.OVERMEYER*  J.BAS 
PRIM.OBJO* K.BAS 
PRIM,OBJ1* L.BAS 
PRIM.TEST* M.BAS 
PRIM.TOOLKIT.SOURCE* N.BAS 








Hüthig Software Service 
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Vorläufige Themenübersicht 
Heft 3/85 erscheint am 25.2.85 





Hardware Assembler 

Der Apple als persönliches Macros für die neuen 
Ingenieurwerkzeug 65C02-Befehle 

Controller- und Laufwerk- Flag-Monitor: 
Funktionsprüfung Geschwindigkeitsoptimierung 
Masterclock von Hoco bei Assemblerprogrammen 
im Test 

Balfer-Interface Grafik 

ProDOS Double-Lores-Utilities 
ProDOS für Anfänger, Teil 2 

Neuer Format-Befehl für Macintosh 

ProDOS j 


Microsoft Basic leicht 
Pascal geMACht, Teil 3 


Pascal 1.2: Evolution statt 
Revolution 


Apples Maus lernt jetzt auch 
Pascal 


CP/M 


Konvertierung von CP/M - in 
DOS-Textfiles 


Apple Ilc lernt CP/M 


Applesoft 


Testgenerator für 
Legastheniker 


Höhere Präzision bei den vier 
Grundrechenarten 


Die CHRGET-Manipulation 
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Wir vertreten unter anderem 


folgende Firmen in Deutschland: 


PRODUCTS 


Pyüssorr 
DESIGNS 


THUNDERWARE, INC. 


G 


@UORUM) 


B8 Mounlain Computer Inc. 


2 


-< Titan 


Ile! ING. 


INTRA COMPUTER INC. 


h N 


E California Computer Systems 


K® ICRUWARE 


NTRAL POINT 
Software,Inc. 


COMPUTER STATION 


Händleranfragen erwünscht. 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/3104 23 : Telex: 185 859 


CORVUS OMNIDRIVE” 


5, 11,16 oder 45 MB 
für Apple Macintosh. 


Single user Version* incl. Omninet-Transporter. 
Für Entfernungen bis zu 1 km, 
problemlos über RS 422 Zweidrahtleitung. 


= FF %* 
EEE TTTEN, “%* u 
NE RB nen CORVUS Omnidrive” 
Winchester Disk 
Omnidrive 


Massenspeicher und 
Netzwerkanschluß in 
einem Gerät. 





‘ab 3. Quartal '85 aufrüstbar für Multiuser-Betrieb zum 
Vernetzen von bis zu 63 Mac's. 





Omninet Constellation || Multiuser Version für 


gemischten Betrieb von Apple Il +, lle, Corvus Concept, | 


DEC Rainbow, TI Professional, Zenith Z 100 
IBM-PC sofort lieferbar 


panday®ft:.... «-. 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185859 


Accelerator Ile macht 
Ihren Apple® II, II Plus oder Ile 
dreieinhalbmal schneller. 


Jetzt laufen VisiCalc®, Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERATOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 


| Direkt von Pandasoft (Titan Distributor für Deutschland) 


oder bet Ihrem Applehändler. 


Panday®@ft:ı. :«. 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr | 
Telefon: 0 30/31 04 23 - Telex: 185 859 





Sie haben einen Apple... 
wir haben die und die 
BOFUWE.; Hardware... 


und die 
Zeitschriften... | 


wir haben die 
Bucher. 


br Br- 2 rr | 
Pu f m ud 
nu. 


ALLES FÜR DEN APPLE Il, Is, NE 


Bandayert. Ing. Eden 


UHLANDSETA. 1956 - D- 1000 BERLIN 12 
TEL.IO30) 310 9223 


' TELEX: IB5B5B 
Fr ERDE Chan 











B2-Motherboard mit 6502, 65C02C, Z80B, V24, Parallel-Schnittstelle, 80-Zeichenkarte, 


RGB-Ausgang, 192 KB RAM DM 2299,-- 
B3-Motherboard, wie B2, zusätzlich 256 KB Pseudofloppy DM 2899,-- 
Prometric® B2 Tischgerät ab DM 3349,-- 
Prometric® B3 Tischgerät ab DM 3999,-- 
Prometric® Portable B2, Monitor 9” ab DM 4449,-- 
Prometric® Portable B3, Monitor 9” ab DM 4999,-- 


Neu von DRV: C-DOS, das 80-Track DOS für B2 und Kompatible, verarbeitet Integer, DOS 3.3 und 
Prodos-Files DM 149,-- 
DEUTSCHES BASIC, ROM-residient, übersetzt Ihre Apple-Soft Files ins Deutsche 

und umgekehrt 2 DM 149,-- 
CALVADOS, deutsche Textverarbeitun DM 299,-- 





Wir suchen Stützpunkt-Händler mit entsprechendem finanziellen Hintergrund. 
Anfragen bitte nur schriftlich. 


TEAC FD55F DM 674,—— YE-DATA 480 DM 694,—-— 


FDC4-Controler DM 179,-—- ERPHI-Controler DM 298,—— 
Shugart-Bus-Kabel DM 45,—— IBM-look Gehäuse DM 218, — 
PREH-Commander AK87 DM 329,—— Monitor 15” DM 528,—— 
MONITOR 12”, 22 MHZ DM 349,—— 32K-PRINTER-BUFFER DM 389,-- 
M100-DRUCKER DM 825,—— MOTHERBOARD 64 KB + Z80 DM 699,-— 
Graphik-Par.-Interface DM 125, —— PSEUDO-FLOPPY 256 KB DM 899, —— 


Alle Preise inklusive 14% MwSt. Weiteres Zubehör auf Anfrage. 


E. Böhmer, DRV, Am Kellershusch, 6072 Dreieich, 06103/84647 


